Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: How to check beginning

Perl: How to check beginning
{filelink=13216}

#!/usr/bin/perl
print "Enter a text: ";
foreach $elem ($ligne=)
{
    if ($elem =~ /^perl/)
    {
        print "Perl Found perl at startn'$elem'.";
    } else
    {
     print "Perl no Found perl at start";
    }
}

No comments yet.

Leave a Comment