Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery

Re: regex pattern match

by reaper9187 (Scribe)
on Mar 29, 2013 at 09:41 UTC ( #1026116=note: print w/replies, xml ) Need Help??

in reply to regex pattern match

Hi .. Thank you for the quick reply .. Is it somehow possible to do it without using any module...?? I've reached thus far with the code
$in_file = "test.txt"; $out_file = "testout.txt"; open (IN, "<$in_file") or die "Can't open $in_file: $!\n"; open (OUT, ">$out_file") or die "Can't open $out_file: $!\n"; while ( $line = <IN> ) { @fields = split /,/, $line; $line = join ",", $fields[0], @fields[1..5]; print OUT $line; print OUT "\n"; } close IN; close OUT; #read in output file and print to screen to confirm open (TEST, "<$out_file") or die "Can't open $out_file: $!\n"; while ( <TEST> ) { print; } close TEST;
There's only one problem bugging me .. How do i exclude the double quoted string from the pattern match in the split statement ..Once i am able to do that , the rest should be easy.. else it jus increases the amount of processing i need to do...

Replies are listed 'Best First'.
Re^2: regex pattern match
by McA (Priest) on Mar 29, 2013 at 09:54 UTC


    what do you think about the following:

    #strip LF from line chomp $line; # delete the very first and last " from line for ($line) { s/^\s*"//; s/"\s*$//; } # now split @fields = split /"\s*,\s*"/, $line; # now you should have the pieces I mentioned above


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1026116]
[pryrt]: stevieb: going thru cblast to get caught up, I see that strawberry fixed their download hashes. Fast turnaround on that fix. :-)
[pryrt]: Are you going to tie the berrybrew expected hashes to their releases.json to keep it always up-to-date?

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (7)
As of 2017-03-30 13:11 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (357 votes). Check out past polls.