Re^2: hexdump/od/perl question

This is what I had originally thought too, but

my %db;
foreach my $file ( @ARGV ) {

  print "Opening $file" if DEBUG;
  
  open ( my $fh, '<', $file )
    or die "can not open $file"
  ; 
  
  while ( my $line = <$fh> ) {
    chomp $line;
    
    $line =~ tr/\0375//d;
    
    next unless $line =~ /(.*?)[.-]*\t(.*)/;
    
    my ( $k, $v ) = ( $1, $2 );
    
    $db{$k} = undef;
    
  }
  
}

print for keys %db;
[download]

still has the funky characters on output.

Evan Carroll
www.EvanCarroll.com

Comment on Re^2: hexdump/od/perl question Download Code

Replies are listed 'Best First'.
Re^3: hexdump/od/perl question by ikegami (Patriarch) on Aug 10, 2007 at 17:37 UTC
I tested my code, so something doesn't jive. Try adding the following to your code: `use Data::Dumper qw( Dumper ); local $Data::Dumper::Useqq = 1; print(Dumper($line));` [download] Put the `print` before the `tr///d`.	[reply] [d/l] [select]
Re^4: hexdump/od/perl question by EvanCarroll (Chaplain) on Aug 10, 2007 at 17:52 UTC
Nice application of data::dumper: `$VAR1 = "STOCK NO\375--------................... D53006\t\r";` Evan Carroll www.EvanCarroll.com	[reply] [d/l]
Re^5: hexdump/od/perl question by ikegami (Patriarch) on Aug 10, 2007 at 18:00 UTC
That line doesn't add anything to `%db` — the `next` gets executed since the regexp doesn't match — so it's not the source of your problem.	[reply] [d/l] [select]
Re^6: hexdump/od/perl question by EvanCarroll (Chaplain) on Aug 10, 2007 at 18:10 UTC