Re: How do i extract 3 variables from each line in a file, and print them to a new file

TMTOWTDI - and it's usually ~~wrong~~ silly...

#!/usr/bin/perl

use warnings;
use strict;

open( OUTPUT, ">output" ) or die "Unable to open output\n$!\n";

$,=","; $\="\n";
while (<DATA>) {
 print OUTPUT map { $_ =~ s/\D//g; $_ } split(':',(split(' ',$_))[-1])
+;
}

close OUTPUT or die "Close output failed\n$!\n";

__DATA__
3434 34456 7788 9999 65444 4 444 444 44443225 12ms:233ms:455ms
755655 5789 333 666776 5553 353534 33 321ms:543ms:45ms
[download]

Update: ...and the finale:

perl -pe '$_=join(",",map{s/\D//g;$_} split(":",(split(" ",$_))[-1])).
+"\n"' < input > output
[download]

Comment on Re: How do i extract 3 variables from each line in a file, and print them to a new file Select or Download Code

Replies are listed 'Best First'.
Re^2: How do i extract 3 variables from each line in a file, and print them to a new file by sapnac (Beadle) on Jul 08, 2005 at 17:16 UTC
`Check this Data.dat contains the input lines. This is working. open(Spooler, "Data.dat") or die "File does not exists\n"; while($spooler=<Spooler>) { #print "$spooler\n"; chomp($spooler); @matches = $spooler =~ /(\d+)ms/g; foreach $a (@matches){ print $a .","; } print "\n"; } Hope it helps!` [download]	[reply] [d/l]
Re^3: How do i extract 3 variables from each line in a file, and print them to a new file by bofh_of_oz (Hermit) on Jul 08, 2005 at 17:59 UTC
That would print a comma at the end of the output string, so you would need a way to prevent it, let's say, like this: `for (@matches) { print "$_,"; } print "\b ";` [download] (Sorry about replacing foreach with for - someone mentioned to me earlier that it's faster and works the same way anyways) Personally, I prefer Transient's way of doing things... although I don't quite understand why it parses split first and then map... -------------------------------- An idea is not responsible for the people who believe in it...	[reply] [d/l]
Re^4: How do i extract 3 variables from each line in a file, and print them to a new file by Transient (Hermit) on Jul 08, 2005 at 18:12 UTC
good question.. hope I'm not overstepping my bounds by responding..(and I hope I'm right!) `map { $_ =~ s/\D//g; $_ } split(':',(split(' ',$_))[-1]);` [download] is equivalent to `my @split_results = split(':',(split(' ',$_))[-1]); map { $_ =~ s/\D//g; $_ } @split_results;` [download] because map BLOCK LIST has to run the BLOCK for each LIST element (setting each LIST value to $_), it must know what is in that LIST. Hence, the execution of the split(s) before the execution of the BLOCK (and therefore the map).	[reply] [d/l] [select]
Re^5: How do i extract 3 variables from each line in a file, and print them to a new file by bofh_of_oz (Hermit) on Jul 08, 2005 at 18:18 UTC
Re^4: How do i extract 3 variables from each line in a file, and print them to a new file by pbeckingham (Parson) on Jul 08, 2005 at 19:26 UTC
`for` is faster to type than `foreach`, and makes your program 3 bytes smaller, but apart from that, it has no effect. pbeckingham - typist, perishable vertebrate.	[reply] [d/l] [select]
Re^3: How do i extract 3 variables from each line in a file, and print them to a new file by bageler (Hermit) on Jul 08, 2005 at 19:43 UTC
instead of `@matches = $spooler =~ /(\d+)ms/g; foreach $a (@matches){ print $a .","; } print "\n";` [download] how about `print join(',',$spooler=~/(\d+)ms/g)."\n";` [download]	[reply] [d/l] [select]
Re^3: How do i extract 3 variables from each line in a file, and print them to a new file by Anonymous Monk on Jul 08, 2005 at 17:50 UTC
Thanks, that worked great:)	[reply]