Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

Re: can't use unpack or split??

by allolex (Curate)
on Jun 07, 2004 at 20:53 UTC ( #362105=note: print w/ replies, xml ) Need Help??


in reply to can't use unpack or split??

I really like Limbic~Region's approach, but here is the my idea for your algorithm. Mine is not dependent on fixed widths at all. It starts from the right and grabs the last six space-delimited strings. Then you can grab the first and second items. My Perl here is a bit sloppy, but this proof-of-concept works.

#!/usr/bin/perl use strict; use warnings; while (<DATA>) { s/\s*([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s] +)$//; my @items = ($1, $2, $3, $4, $5, $6); m/([^\s]+)\s+(.*)$/; unshift @items, $2; unshift @items, $1; print "[$_] " foreach @items; print "\n"; }
__DATA__ BAZ 'N3'' N 0 ? ? ? 1 BAZ 'N4'' N 0 ? ? ? 1 BAZ 'C8'' C 0 ? ? ? 1 BAZ C9 C 0 ? ? ? 1 BAZ ZN ZN 0 ? ? ? 0 BAZ HN1 H 0 ? ? ? 1 BAZ 1HN2 H 0 ? ? ? 0 BAZ 2HN2 H 0 ? ? ? 0 001 F11 F 0 ? ? ? 1 001 C11 C 0 ? ? ? 1 001 O11 O 0 ? ? ? 1 001 N12 N 0 ? ? ? 1 001 C12 C 0 ? ? ? 1 001 C13 C 0 ? ? ? 1 001 C14 C 0 ? ? ? 1 001 C15 C 0 ? ? ? 1 001 C16 C 0 ? ? ? 1 BCB CBA C 0 ? ? ? 1 BCB CGA C 0 ? ? ? 1 BCB O1A O 0 ? ? ? 1 BCB O2A O 0 ? ? ? 1 BCB 'N B' N 0 ? ? ? 1 BCB C1B C 0 ? ? ? 1 BCB C2B C 0 ? ? ? 1 BCB C3B C 0 ? ? ? 1 BCB C4B C 0 ? ? ? 1 BCB CMB C 0 ? ? ? 1
OUTPUT: [BAZ] ['N3''] [N] [0] [?] [?] [?] [1] [BAZ] ['N4''] [N] [0] [?] [?] [?] [1] [BAZ] ['C8''] [C] [0] [?] [?] [?] [1] [BAZ] [C9] [C] [0] [?] [?] [?] [1] [BAZ] [ZN] [ZN] [0] [?] [?] [?] [0] [BAZ] [HN1] [H] [0] [?] [?] [?] [1] [BAZ] [1HN2] [H] [0] [?] [?] [?] [0] [BAZ] [2HN2] [H] [0] [?] [?] [?] [0] [001] [F11] [F] [0] [?] [?] [?] [1] [001] [C11] [C] [0] [?] [?] [?] [1] [001] [O11] [O] [0] [?] [?] [?] [1] [001] [N12] [N] [0] [?] [?] [?] [1] [001] [C12] [C] [0] [?] [?] [?] [1] [001] [C13] [C] [0] [?] [?] [?] [1] [001] [C14] [C] [0] [?] [?] [?] [1] [001] [C15] [C] [0] [?] [?] [?] [1] [001] [C16] [C] [0] [?] [?] [?] [1] [BCB] [CBA] [C] [0] [?] [?] [?] [1] [BCB] [CGA] [C] [0] [?] [?] [?] [1] [BCB] [O1A] [O] [0] [?] [?] [?] [1] [BCB] [O2A] [O] [0] [?] [?] [?] [1] [BCB] ['N B'] [N] [0] [?] [?] [?] [1] [BCB] [C1B] [C] [0] [?] [?] [?] [1] [BCB] [C2B] [C] [0] [?] [?] [?] [1] [BCB] [C3B] [C] [0] [?] [?] [?] [1] [BCB] [C4B] [C] [0] [?] [?] [?] [1] [BCB] [CMB] [C] [0] [?] [?] [?] [1]

--
Damon Allen Davison
http://www.allolex.net


Comment on Re: can't use unpack or split??
Select or Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (12)
As of 2014-12-29 14:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (188 votes), past polls