Heres a weird one you guys:-
I take a HTML file, I strip the HTML tags
with the substitution s/<.*?>//g; (its a simple
HTML file so all of the tags get removed, but
file size runs up to 14MB).
I then print the file to a text document using
perl program.pl > file.txt.
I make another program where I do a search
for a string on any line. But the print if(/^Word /i);
doesnt return anything to STDOUT.
I mess around for a few hours, get fed up, curse
and switch the PC off, and then go to bed.
Next day I turn the PC on, run the same program
without any changes, and low and behold
I get what I want going to STDOUT.
So what did the power down do?
Just in - Engineer by name, butcher by profession . . .
perl -e "$_ = qx/perldoc -q japh/; s/.*\"(\w+ )(\w+ )(\w+
)\w{4}(\w+)\".*/ucfirst($1).\"in - $2\".ucfirst($3).\"us$4\"/es; print"
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
