Perl OneLiner (inReverse?)

Barusan dapat request dari customer mendapatkan suatu output dari suatu input file, bisa lah dengan kutak-katik perl oneliner. Tapi sepertinya menarik juga ya klo ada challenge “reverse”-nya, seperti tugas kuliah…ada one liner nya dan sebutkan kemungkinan bentuk asalnya :).

perl code:

perl -e 'while (<>) { chomp; my @line = split(/,/); my @a = split(/_/,@line[0]); my $imsi = @a[0]; @msisdn = @a[1..scalar(@a)]; @uniqMsisdn = keys %{{ map { $_ => 1 } @msisdn }}; print "$imsi@uniqMsisdn $line[1]\n" }' blah.txt 

output:

012400020111 55818111 55818222 55818333 inPostpaid
012100022999 55802321 inPostpaid
012300013888 55888987 inPostpaid

possible input (isi blah.txt)?

#jadi inget ujian algoritma pemrograman di stt telkom beberapa tahun silam T_T

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s