Rusty Perl
Posted on 1/18/2007 2:46 pm in Perl
I wrote a quick program today to filter a list of email addresses out of an old email that had been forwarded a couple times. The program itself is very simple, but it took me about 15 minutes. Most of that time was digging up the proper commands for reading in the input.
I think it's mostly because I haven't written any new Perl code in about 2 years. I need to find an excuse to write more Perl so I'm not so rusty when I need.
#!/usr/bin/perl use IO::Handle; open (INPUT, ") { chomp $email; $email =~ s/^ *?>> +?(.+?),.*$/$1/; print "$email; "; } close (INPUT);
1 responses to Rusty Perl
<< previous
| next >>
Page 1 of 1
reply this post
I think that to get the <a href="http://bestfinance-blog.com/topics/credit-loans">credit loans</a> from creditors you ought to present a good reason. However, once I've got a sba loan, because I was willing to buy a house.
Posted: Oct 23rd 2010, 09:41 by KnowlesAlejandra20
<< previous
| next >>
Page 1 of 1



