Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re^4: Got some problem with read write file

by SilverWol (Novice)
on Sep 04, 2016 at 12:29 UTC ( #1171142=note: print w/replies, xml ) Need Help??

in reply to Re^3: Got some problem with read write file
in thread Got some problem with read write file

#!usr\bin\perl -w #!/usr/bin/perl use warnings; use strict; open my $HUBFILE, '<', '1048_undefined.tsv' or die $!; my @hubs; while (my $line = <$HUBFILE>) { push @hubs, $1 if $line =~ /\d+ \t (\w+) \t/x; } close $HUBFILE; open my $OUT, '>', 'hubs.txt' or die $!; for my $hub (@hubs) { print {$OUT} "$hub\n"; } close $OUT;

Replies are listed 'Best First'.
Re^5: Got some problem with read write file
by Laurent_R (Canon) on Sep 04, 2016 at 14:01 UTC
    Hmm, I don't see anything obviously wrong in your code. My best guess would be that that the regex doesn't match your input.

    One thing you could to is to add the following line near the top:

    use Data::Dumper;
    and, then, right after closing the $HUBFILE file handle, to print out the content of the @hubs array:
    print Dumper \@hubs;
    to see the actual content of @hubs after having read the input file.

    My guess is that you'll also see only one record there, which would confirm that regex probably needs some change.

    Another thing you could do is to try to make the regex less strict about what it sees (maybe you don't have tabs, but spaces somewhere in your input):

    push @hubs, $1 if $line =~ /\d+ \s+ (\w+) \s+/x;
    Finally, it would be useful if you posted a sample of your input data between <c> and </c> tags, so that we get a better idea of what this input really looks like.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (2)
As of 2023-09-26 04:54 GMT
Find Nodes?
    Voting Booth?

    No recent polls found