Kundan Chaudhari comment on Famous Awk One-Liners Explained, Part II: Text Conversion and Substitution

Privacy Controls Software from ParetoLogic

Incorrect documentation is often worse than no documentation.

Bertrand Meyer

Cross-browser testing from your browser

Perl one-liners explained

You're viewing a comment by Kundan Chaudhari and its responses.

Kundan Chaudhari Permalink

October 07, 2011, 21:12

I have pattern similar to below in a file
P1
10,9:12/971552020883
,10:1
,11:1

11,9:15/424030013064669
,10:60

12,18:14/35491004546837
,19:7

15,9:12/971550930015
,10:1
,11:1
,14:1001

I want to have convert it as below

P1
10,9:12/971552020883
10,10:1
10,11:1

11,9:15/424030013064669
11,10:60

12,18:14/35491004546837
12,19:7

15,9:12/971550930015
15,10:1
15,11:1
15,14:1001

Peteris Krumins pkrumins Permalink

October 09, 2011, 14:17

perl -lne '
 if (m|^(\d+),\d+:\d+/\d+|) { $n = $1; print; }
 elsif (m|^,\d+:\d+|) { print $n . $_; }
 else { print }
'

Name:

Twitter: (Your twitter name, if you have one. (I'm @pkrumins, btw.))

Website:

Comment:

Type first 3 letters of your name: (just to make sure you're a human)

Please preview the comment before submitting to make sure it's OK.

Famous Awk One-Liners Explained, Part II: Text Conversion and Substitution