http://www.atitd.org/wiki/t4w/index.php?action=history&feed=atom&title=User%3AIkuu%2FFor-WR
User:Ikuu/For-WR - Revision history
2026-06-11T07:44:11Z
Revision history for this page on the wiki
MediaWiki 1.35.2
http://www.atitd.org/wiki/t4w/index.php?title=User:Ikuu/For-WR&diff=93416&oldid=prev
Ikuu: New page: <pre> #!/usr/bin/perl -w $z = "00"; while (<>) { # Add the tooltip s-(\d)(\d)(\d)(\d)(\d)(\d)(\d)-<div title="Sagging:::$1, Wilting:::$2, Musty:::$3, Fat:::$4, Rustle:::$5, Shrivel::...
2009-05-05T04:34:33Z
<p>New page: <pre> #!/usr/bin/perl -w $z = "00"; while (<>) { # Add the tooltip s-(\d)(\d)(\d)(\d)(\d)(\d)(\d)-<div title="Sagging:::$1, Wilting:::$2, Musty:::$3, Fat:::$4, Rustle:::$5, Shrivel::...</p>
<p><b>New page</b></p><div><pre><br />
#!/usr/bin/perl -w<br />
<br />
$z = "00";<br />
<br />
while (<>) {<br />
# Add the tooltip<br />
s-(\d)(\d)(\d)(\d)(\d)(\d)(\d)-<div title="Sagging:::$1, Wilting:::$2, Musty:::$3, Fat:::$4, Rustle:::$5, Shrivel:::$6, Shimmer:::$7">$1$2$3$4$5$6$7</div>-;<br />
# Translate index into abbrev<br />
s/::0/AS/g;<br />
s/::1/MG/g;<br />
s/::2/PO/g;<br />
s/::3/SL/g;<br />
s/::4/SV/g;<br />
s/::5/TV/g;<br />
s/::6/TL/g;<br />
# Standardize each number's output format<br />
s/(\d+\.\d+)/ $1$z/g; # Prepend spaces and append zeroes<br />
s/\|\|(\d+)\|/|| $1.000|/g; # No decimal point? Add it<br />
s/\|\|(\d+)$/|| $1.000/g; # No decimal point in number listed at end of line? Add it<br />
s/ *([ 0-9][ 0-9][0-9]\.\d\d\d)\d*/$1/g; # Prune the extra leading spaces and trailing zeroes<br />
print $_;<br />
}<br />
</pre></div>
Ikuu