Toby DiPasquale on 18 Jan 2006 02:02:01 -0000


[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]

Re: [PLUG] Perl question...


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