Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re^2: search for chr() fails

by tbone654 (Beadle)
on May 21, 2013 at 01:57 UTC ( #1034438=note: print w/ replies, xml ) Need Help??


in reply to Re: search for chr() fails
in thread search for chr() fails

OQ91@BBCPC36662 /cygdrive/c/package $ perl -MData::Dump -MFile::Slurp -e " dd scalar read_file shift, { qw +/ binmode :raw / }; " hitters > ThatFilesBytesAsPerlAsciiCode.pl <br>thanks to your code I can tell the search string I'm looking for i +s \xAO<br> OQ91@BBCPC36662 /cygdrive/c/package $ cat ThatFilesBytesAsPerlAsciiCode.pl "3B\xA0Aramis Ramirez\xA0(R)\nC\xA0Jonathan Lucroy\xA0(R)\nCF\xA0Carlo +s Gomez\xA0(R)\n2B\xA0Rickie Weeks\xA0(R)\n1B\xA0Yuniesky Betancourt\ +xA0(R)\nP\xA0Yovani Gallardo\xA0(R)\nCF\xA0Robbie Grossman\xA0(S)\n2B +\xA0Jose Altuve\xA0(R)\nC\xA0Jason Castro\xA0(L)\nLF\xA0J.D. Martinez +\xA0(R)\n1B\xA0Chris Carter\xA0(R)\nDH\xA0Carlos Pena\xA0(L)\nRF\xA0J +immy Paredes\xA0(S)\n3B\xA0Matt Dominguez\xA0(R)\nSS\xA0Marwin Gonzal +ez\xA0(S)\nRF\xA0Eric Young Jr.\xA0(S)\nCF\xA0Dexter Fowler\xA0(S)\nL +F\xA0Carlos Gonzalez\xA0(L)\nSS\xA0Troy Tulowitzki\xA0(R)\nC\xA0Wilin + Rosario\xA0(R)\n1B\xA0Todd Helton\xA0(L)\n3B\xA0Nolan Arenado\xA0(R) +\n2B\xA0Josh Rutledge\xA0(R)\nP\xA0Jon Garland\xA0(R)\nSS\xA0Everth C +abrera\xA0(S)\nCF\xA0Will Venable\xA0(L)\n3B\xA0Chase Headley\xA0(S)\ +nLF\xA0Carlos Quentin\xA0(R)\n1B\xA0Yonder Alonso\xA0(L)\n2B\xA0Jedd +Gyorko\xA0(R)\nRF\xA0Chris Denorfia\xA0(R)\nC\xA0John Baker\xA0(L)\nP +\xA0Jason Marquis\xA0(L)\n"

$ cat hitters | perl -ne 'print substr($_,index($_,"\xA0")+1,-5); print "\n";'
Nolan Arenado
Josh Rutledge
Jon Garland
Everth Cabrera
Will Venable
Chase Headley
Carlos Quentin
Yonder Alonso
Jedd Gyorko
Chris Denorfia
John Baker
Jason Marquis

Now I can do something like:
grep -f hitters bigger_file_to_search

OQ91@BBCPC36662 /cygdrive/c/package
$ grep -f dirty dirt | sort
1B Adam LaRoche 2.1 40 WAS@SDP $2,700
1B Billy Butler 2.7 39 KAN@OAK $3,600
1B Brandon Belt 2.2 41 SFG@COL $3,100
1B Brandon Moss 2.3 44 KAN@OAK $3,500
1B Brett Pill 2 3 SFG@COL $2,600
1B Chad Tracy 0.4 23 WAS@SDP $2,300
1B Daric Barton 1.3 8 KAN@OAK $2,400
1B Eric Hosmer 1.6 37 KAN@OAK $3,400
1B Lance Berkman 2.8 37 DET@TEX $3,600
1B Mark Kotsay 0.7 24 WAS@SDP $2,700
1B Mitch Moreland 2.7 43 DET@TEX $3,300
1B Nate Freiman 1.2 20 KAN@OAK $2,700
1B Prince Fielder 3.4 41 DET@TEX $4,700


THANK YOU VERY MUCH


Comment on Re^2: search for chr() fails
Download Code
Re^3: search for chr() fails (-lanse)
by Anonymous Monk on May 21, 2013 at 02:31 UTC
    :) I learneded it from Tutorials Basic debugging checklist

    Here is another tip

    $ perl -F"\xA0" -lanse " print join q{ ### }, @F " hitters |tail P ### Jon Garland ### (R) SS ### Everth Cabrera ### (S) CF ### Will Venable ### (L) 3B ### Chase Headley ### (S) LF ### Carlos Quentin ### (R) 1B ### Yonder Alonso ### (L) 2B ### Jedd Gyorko ### (R) RF ### Chris Denorfia ### (R) C ### John Baker ### (L) P ### Jason Marquis ### (L)
      VERY NICE! thank you...

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1034438]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (8)
As of 2014-09-15 09:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite cookbook is:










    Results (145 votes), past polls