Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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 romping around the Monastery: (17)
As of 2015-07-06 18:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (80 votes), past polls