Search Results

I think it be some cross platform way

#!/usr/bin/perl

use strict;
use warnings;
use Proc::Daemon;

Proc::Daemon::Init;

my $continue = 1;
$SIG{TERM} = sub { $continue = 0 };

while...

perl mode
cat test.txt | perl -ne 'chomp; @v = split /(:?.{6})/,$_; map {print( $_ , qq/\n/) if length( $_) } @v'
xyz123
abc509
kai330
aca203
ald390
afa000
als303

---------- Post updated...