P is for Practical | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
The OP won't understand it (heck even I don't)Want a spoiler?
+($\=\1)-$\ evaluates to zero, so we can take those out.
+($/=\1)-$/ evaluates to zero too, just we need one of them to set the input separator $/ to 1 (bytewise reading). We can also take out the subsequent commas from the join (since they do nothing), so the first line becomes: The numbers are the ordinals of the single chars of the filename "part3.txt". Now for the while loop. If we write it clearer it looks like $\="$\$_"; simply concatenates the read char with $\. $_=$\; has no effect. $\ = substr((push @w,$\),0,0) if $\=~ /\s$/msg; pushes $\ to an array if the last char of $\ is a whitespace or newline, thus a "word". In the same statement $\ is cleared because the return value of substr(something, 0,0) is empty. The last part is a simple grep of the array we built. We can safely leave out the eval so it becomes: Alter the regex here to your liking. holli, /regexed monk/ In reply to Re^3: Pattern matching
by holli
|
|