Toby DiPasquale on 18 Jan 2006 02:02:01 -0000 |
On Tue, Jan 17, 2006 at 06:55:22PM -0500, Eric wrote: > I know there are perl hackers about... > > I have a file - a typical line might look like this: > > 1 1 1 Ownership FeeSimple Fee Simple > > The desired data is the last field - indexed by the first three and forget the > other two. The "hitch", if you will, is that I'm using unpack to get the > fields like this: > > #!/usr/local/bin/perl > open EAT, "<Translation.txt" or die "bummer dude - no file?\n" ; > while (<EAT>) { > ($f1, $f2, $f3, $junk, $junk2, $data) = unpack("a10, a9, a8, a26, a18, a35 ", $_) ; > print $data ; > } I don't know about Perl, but in Ruby this is: #!/usr/bin/env ruby IO.foreach("Translation.txt") do |line| f1, f2, f3, j1, j2, data = line.split puts data end I believe that Perl has a split() function, as well. Maybe use that instead of unpack? -- Toby DiPasquale ___________________________________________________________________________ Philadelphia Linux Users Group -- http://www.phillylinux.org Announcements - http://lists.phillylinux.org/mailman/listinfo/plug-announce General Discussion -- http://lists.phillylinux.org/mailman/listinfo/plug
|
|