Re: how to split input data ?

Another way to do it (without regular expressions):

$ echo "12345678
123456789" | perl -lne'print join q[ ], unpack q[(a2)*], $_'
12 34 56 78
12 34 56 78 9
[download]

Comment on Re: how to split input data ? Download Code

Replies are listed 'Best First'.
Re^2: how to split input data ? by Fletch (Bishop) on Nov 09, 2006 at 14:36 UTC
Or without even Perl . . . `$ irb -r enumerator irb(main):001:0> "12345678".split(//).enum_slice( 2 ).inject( [] ) { \| +a,x\| a << x.join( "" ) }.join( " " ) => "12 34 56 78" irb(main):002:0> "123456789".split(//).enum_slice( 2 ).inject( [] ) { +\|a,x\| a << x.join( "" ) }.join( " " ) => "12 34 56 78 9"` [download] Update: Or maybe a little more concisely: `irb(main):011:0> "12345678".split(//).enum_slice( 2 ).map {\|a\| a.join( +"")}.join(" ") => "12 34 56 78"` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: how to split input data ?
by Fletch (Bishop) on Nov 09, 2006 at 14:36 UTC

Or without even Perl . . .

$ irb -r enumerator
irb(main):001:0> "12345678".split(//).enum_slice( 2 ).inject( [] ) { |
+a,x| a << x.join( "" ) }.join( " " ) 
=> "12 34 56 78"
irb(main):002:0> "123456789".split(//).enum_slice( 2 ).inject( [] ) { 
+|a,x| a << x.join( "" ) }.join( " " )
=> "12 34 56 78 9"
[download]

Update: Or maybe a little more concisely:

irb(main):011:0> "12345678".split(//).enum_slice( 2 ).map {|a| a.join(
+"")}.join(" ")
=> "12 34 56 78"
[download]

[reply]
[d/l]
[select]