Recent content by cntr

BEGIN{FS="\t";ORS=""}NR>1{print":"}{print$2} xxxx 001233 xxxxx xxxxx xxxx 001234 xxxxx xxxxx xxxx 001235 xxxxx xxxxx xxxx 001236 xxxxx xxxxx xxxx 001237 xxxxx xxxxx becomes 001233:001234:001235:001236:001237

$line=~/(d:.*)(##.*)/; $var1=$1; $var2=$2; Sorry, Tony.

I don't mind if I do. BEGIN{FS="d:|##"} {print $2,$3}

Flush STDOUT?

He can simply ignore me if he likes. # Create a hash whose elements have a default value # of 0. BEGIN { $h=Hash.new(0) } # If the line just read, $_, doesn't begin with # "JOE", skip it. next if $_ !~ /^JOE/ # Each iteration of scan produces an array like this: # [n1,n2]; n1 is the number...

ruby -n sums.rb data BEGIN { $h=Hash.new(0) } next if $_ !~ /^JOE/ $_.scan(/(\d+):(\d+)/){|x| $h[x[0].to_i]+=x[1].to_i} END { puts $h.sort.map{|x| x.join(':')}.join(',') }

Is Perl not suitable for this task?

BEGIN {FS="="} NR==FNR {aa[$1]=$2; next} $0 in aa {$0=aa[$0]} 1 awk -f sub.awk line.txt -

You ought to get out more, Paul.

Awk BEGIN { # Make dummy data. for (i=1; i<6; i++) addresses[i] = cell( "cell: " i, 215 ) print make_table( addresses ) } function make_table( addresses ,number_of_columns,output,i) { number_of_columns = length(addresses) if (0==number_of_columns) output = empty_row() else...

awk { $0 = six = substr($0,1,6) if (/[0-9]/ && gsub(/[a-zA-Z]/,1)>1) print six,"is good" }

while ($i++ <= 5) It's $i++ not ++$i. This means that the value of $i is fetched before $i is incremented. But $i will be incremented before the print statement. So the equivalent is $i = 0; while ($i <= 5) { $i++; print $i; } and the output will be 123456 b{1,3} will match "b" or "bb" or...

<root> <root2> <tag1>some value</tag1> <tag2>some value</tag2> <tag3>some value</tag3> </root2> </root> becomes root root2 tag1 tag2 tag3 Run with awk -f xmltags.awk test.xml xmltags.awk is BEGIN { RS="<"; FS=">" } !/^\// { print $1 }

Oops. Made "arry" global. Change function rpldelimxy( str, delim, x, y, n,i to function rpldelimxy( str, delim, x, y, n,arry,i)

244000,106685045,"$7,605.40",Dell Australia Pty Ltd,"Hi, Mom!" 244000,106685045,"$1,777,605.40",Dell Australia Pty Ltd, 244000,106685045,"$9,111,777,605.40",Dell Australia Pty Ltd, becomes 244000,106685045,"$7605.40",Dell Australia Pty Ltd,"Hi Mom!" 244000,106685045,"$1777605.40",Dell...