Re^4: cut vs split (suggestions)

Very interesting! Thanks for the new idea!

I lost my server connection for some reason and so I tested this on my laptop and I do see a very good improvement with the your modification.

update: corrected <> with $_ per pijll post

C:\>perl -lne "BEGIN{$,=','} print+(split',',$_)[0..14] " > junk
[download]

this finishes in about 14 seconds.... corrected timing

C:\>perl -lanF, -e "BEGIN{ $,=\",\"} print @F[0..14];" numbers.csv > j
+unk
[download]

this takes about 18 seconds

I don't have a timing utility in Windows so the times are just wallclock times.

I guess windows is faster because the process run at 100% CPU (or whatever is required i guess?). On the UNIX servers the process might be more time-shared?

My laptop is 1.6G Centrino/1GB Ram/perl, v5.6.1

cheers

SK Update: Thanks pijll, the time it takes to run your version of the code is almost same as the one that uses -n.

Comment on Re^4: cut vs split (suggestions) Select or Download Code

Replies are listed 'Best First'.
Re^5: cut vs split (suggestions) by pijll (Beadle) on Apr 17, 2005 at 07:54 UTC
You are using both the `-n` switch and `<>` in the first line! This means you lose half of your lines... Anyway: `-n` does an unnecessary `chomp` on every line, so remove that; and use a limit on `split`: it doesn't actually need to split all 25 fields: `perl -le 'BEGIN{$,=","} print+(split",",$_,16)[0..14]for <>' numbers.c +sv` [download] Update: But `for<>` reads all lines in at ones; you may not want that with large files, so use `while <>` instead.	[reply] [d/l]

Replies are listed 'Best First'.

Re^5: cut vs split (suggestions)
by pijll (Beadle) on Apr 17, 2005 at 07:54 UTC

-n

<>

Anyway: -n does an unnecessary chomp on every line, so remove that; and use a limit on split: it doesn't actually need to split all 25 fields:

perl -le 'BEGIN{$,=","} print+(split",",$_,16)[0..14]for <>' numbers.c
+sv
[download]

Update:

for<>

while <>

[reply]
[d/l]