Search Results

sorry got your requirement wrong..try rdrtx1's solution...edited my code by removing it

perl -e 'if($ARGV[0] =~ /\A[0-9]{10}\*0#[0-9]{9}#\z/){print "Valid string\n"}else{print "Invalid string\n"}' '1234567899*0#123456789#'

awk -F'\t' '$2 == "b"' 1

Guru

Use code tags please. Try this:awk '{a[$1]=a[$1]?a[$1]"|"$3:$3}END{for (i in a){print i,a[i]}}' file

Ruby(1.9+)

$ ruby -i -pne '$_="c\n" if $.==2; ARGF.close if ARGF.eof' 3 4

the variable $. will not reset to 1 once the next file starts. It will continue counting.

Try:for i in *; do perl -p -i -e "s/.*/c/ if $.==2" $i; done

You can try if fgrep will be faster.

Try:

grep -f 1.txt 2.txt

awk -F";" 'length($2)>3 || length($3)>3' infile

Try this,


awk -vRS="\n\n\n+" '{gsub("\n","")}1' infile

$
$
$ cat f2
981 I field1 > field2.a: aa, ..si01To:<f:a@a.com>From: <f:a@a.com>;tag=DVNgfRZBZRMi96 <f:a@1:333>;ZZZZZ: 12345
$
$
$ perl -lne '/^\w+\s+\w+\s+(\w+)\s+\>\s+(\w+).*?To:(.*?)From:.*$/...

Another one:
awk '$1=$1' RS= FS= OFS= file

awk -vRS="" '{gsub("\n","")}1' file

Works fine on my HP-UX system, try <Ctrl-v><Enter> instead of \n:
sed -n 'N;/in/s/^M.*//p'

try this,


awk '/in/ { print a } { a = $0}' inputfile

What about d-z, A-Z, 0-9, ...? What about values with more than 1 character?

One possible approach, if it's only a few possible characters (=< 10), would be to translate them to numbers, do a...

awk '$4 ~ /m/ {$2="00"$2}1' input_file

awk '$4~2{$2="00"$2}1' input_file

Change

awk '$4==2{$2="00"$2}1' input_fileTo

awk '$4 ~ 2 {$2="00"$2}1' input_file

Hi
Try this:

$ awk '$2=$4==2?"00"$2:$2;' file
a b c 1 e e e e e
a 00b c 2 e e e e e

Guru.

awk '$4==2{$2="00"$2}1' input_file

If you are looking for the equivalent of this -


awk 'BEGIN{print strftime("%c",1273236600)}'


in Perl, then you may want to use the "POSIX" module, which includes the strftime function -

...

I don't quite understand your question, or the meaning of "pchoh time", but is this what you are looking for ?


awk 'BEGIN{printf strftime("%c",1272814948)}'


tyler_durden

Added gsub statement to scottn code

awk -v ORS=",," 'BEGIN {printf ORS} {gsub(" ","")} 1' file