http://www.perlmonks.org?node_id=144460


in reply to Re: Getting data out of a remote web page
in thread Getting data out of a remote web page

foreach $link (@links) {
    if($link =~ /[0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]/) {
        system("wget -c \"http://www.celebdaily.com/$link\"");
    }
}

[download]

Ouch. If $link is '$(rm -rf /)1111-11-11', you're not going to like it. You should anchor the regex (/^[0-9] ... [0-9]$/) so nothing can be in front of or after your pattern. Another great thing is not having a shell parse the command line: system('wget', '-c', "http://www.celebdaily.com/$link");.

2;0 juerd@ouranos:~$ perl -e'undef christmas'
Segmentation fault
2;139 juerd@ouranos:~$

[download]

In Section Seekers of Perl Wisdom