Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"
 
PerlMonks  

Saved's scratchpad

by Saved (Beadle)
on May 25, 2009 at 09:41 UTC ( #765994=scratchpad: print w/ replies, xml ) Need Help??

#!/usr/bin/perl #<"Grep.pl"> Grep Profile Info File undef $/; $INFOFILE="/admin/users/diebelr/llProfile.out"; open (IFILE, "$INFOFILE") || die ("Cannot open $INFOFILE\n"); @finfo=split(/\n+(?=\n)/, <IFILE>); #@finfo=split(/\n{2,}/, <IFILE>); $tRecsInfo = @finfo; print "$tRecsInfo"; print "I read ", scalar(@finfo), " RECORDS\n"; @MATCHING = (); @MATCHING = grep(/\b@ARGV[0]\b/, @finfo); $MATCHED = @MATCHING; print "@MATCHING"; print "\n$MATCHED Entries Matched\n"; #if ($str !~ /^\s*$/){print "yes";print OUT $str;}
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (3)
As of 2014-09-21 10:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (168 votes), past polls