perl one liner with -F special char

LanceDeeply has asked for the wisdom of the Perl Monks concerning the following question:

i'm trying to print the unique keys of a datafile.
my key indexes are 0,1,2,3 and my delimiter is ^

4363^7619082^309839685^309841122^14^18
4363^7619082^309839685^309841122^14^19
4363^7619082^309839685^309841122^14^20
4363^7619082^309839685^309841122^26^25
4363^7619082^309839685^309841122^26^26
4363^7619082^309839685^309841122^14^52
4363^7619082^309839685^309841122^14^51
4363^7619082^309839685^309841122^23^21
[download]

this code works:

 perl -ne '@ar = split /\^/; $key="$ar[0],$ar[1],$ar[2],$ar[3]\n"; pri
+nt $key if ( ! $seen{$key} ++ );' datafile
[download]

but i want to use -F like so:

perl -naF^ -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( ! $se
+en{$key} ++ );' datafile

or

-F/^/
-F/\^/
-F"^"
-F'^'
[download]

but it wont split!
any suggestions?

Comment on perl one liner with -F special char Select or Download Code

Replies are listed 'Best First'.
Re: perl one liner with -F special char by cog (Parson) on Apr 21, 2005 at 16:58 UTC
`-F"\^"`	[reply] [d/l]
Re^2: perl one liner with -F special char by LanceDeeply (Chaplain) on Apr 21, 2005 at 18:29 UTC
thanks everyone! i thought i tried every combination	[reply]
Re: perl one liner with -F special char by sk (Curate) on Apr 21, 2005 at 17:08 UTC
This might be easy for you remember. Whatever you are using in your split use it in your -F as is for example `perl -naF"/\^/" -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( +! $seen{$key} ++ );' datafile 4363,7619082,309839685,309841122` [download] Notice the -F uses whatever is in your split. Update: Please quote your param for F switch as you don't want the shell to interpret your backslashes.	[reply] [d/l]
Re: perl one liner with -F special char by ikegami (Patriarch) on Apr 21, 2005 at 17:02 UTC
How about `-F"\^"`? `>perl -lnaF"\^" -e "print $F[0]"` works for me. So does this: `>perl -lnaF\136 -e "print $F[0]"`	[reply] [d/l] [select]
Re: perl one liner with -F special char by deibyz (Hermit) on Apr 21, 2005 at 17:20 UTC
Seems shell doing its work. This works for me: `perl -anF'\136' -e '$key="$F[0],$F[1],$F[2],$F[3]\n"; print $key if ( +! $seen{$key} ++ );' datafile` [download]	[reply] [d/l]