how to nomalize format like that:

happyboy227

--data.txt--

id:line1     2727525745257245724574246257625724567.....................
       id:line2  795905634562357254572725473473457347573734352..........
id:line3            42346243643262342442623466643623432445431
------------------------------------------------------------------
i want to see output RESULT have 30 letters per line:

id:line1
27275257452572457245742462576
25724567247247242623463632463
26363666346363636
id:line2
795905634562357254572725473473
457347573734352547457343457457
43573454643
id:line3
423462436432623424426234666436
23432445431

deathcult

fold

deathcult

awk '{print $1"\n"substr($2,0,30)"\n"substr($2,31,30)}' file_name

happyboy227

Wrong! The result losses mamy data, see:

id:line1
272752574525724572457424625762
572456724724724262346363246326
id:line2
795905634562357254572725473473
457347573734352547457343457457
id:line3
423462436432623424426234666436
23432445431

apile

原帖由 "happyboy227" 发表：
Wrong! The result losses mamy data, see:

id:line1
272752574525724572457424625762
572456724724724262346363246326
id:line2
795905634562357254572725473473
457347573734352547457343457457
id:line3..........

  

這應該不難吧？
用spilt(/ /);
把id:line1 與後面字串切出來..
再用substr()抓出30個chars一組..
如果length ($string) < 30..就不用substr了...
最後print出來...

powerplane

1. perl -e 'while(<>;){chomp;split;print "$_[0]\n$_[1]\n";}' myfile | fold -w 30

复制代码

I combined perl and fold together....

powerplane

or use awk like this

1. 
   
2. awk '{printf "%s\n%s\n", $1, $2}' myfile | fold -w 30
   

复制代码

lgjut

or use 文法 like this:

use Parse::RecDescent;

my $grammar = <<'EOG';
addition_expr: a_line(s)
               | <error: illegal expression>;
  a_line:'id:' line_id number(s)
                 { print "\n"; }
  line_id:/.+\n/
                 { $item[1] =~ s/\s+$//;print "iditem[1] "; }
  number:/\d+\s*\n/
                 { $item[1] =~ s/\s+$//;print $item[1]; }
EOG

open(DATA,"e:/perl/code/t.txt";

my @lines = <DATA>;;

my $text = join('', @lines);
my $parserRef = new Parse::RecDescent($grammar);
my $ret = $parserRef->;addition_expr($text);
die $@ if $@;

: )