如何将文件中所有行由abc123变为123abc？

mels

都是大牛啊，膜拜下！

yinyuemi

这回不乱了，呵呵

$ sed 's/[a-z].*/ &/g' test.txt |awk 'NR==1{printf $2" "$1;v=$2} NR>1 {if($2==v) {printf " "$1} else {printf "\n"$2" "$1}}{v=$2}'

mels

   1. #! /usr/bin/perl
   2. open(LINES , "lines008");
   3. chomp(@lines = <LINES>);
   4. for (@lines){
   5.     @line = split /\b/;
   6.     $hash{$line[1]} .= " $line[0]";
   7. }
   8.

   9. for $key (sort keys %hash){
  10.     print "$key$hash{$key}\n";
  11. }

    难道是我RP问題？slackware 13.1/perl 5.10.1执行这段代码没反应。

mels

这回不乱了，呵呵

$ sed 's/[a-z].*/ &/g' test.txt |awk 'NR==1{printf $2" "$1;v=$2} NR>1 {if($2==v) ...
yinyuemi 发表于 2010-12-23 16:11

    同样，slackware 13.1 / sed 4.2.1 /awk 3.1.8 执行这行代码也不成功：
awk: (FILENAME=- FNR=1132) fatal: not enough arguments to satisfy format string
...
^ ran out for this one

昭襄王

回复 23# mels


    perl -v

This is perl, v5.10.1 (*) built for i686-linux-gnu-thread-multi
(with 40 registered patches, see perl -V for more detail)

yinyuemi

回复 24# mels


$ sed --version
GNU sed version 4.2.1
Copyright (C) 2009 Free Software Foundation, Inc.

$ awk --version
GNU Awk 3.1.7
Copyright (C) 1989, 1991-2009 Free Software Foundation.

如果lz平时使用windows比较多的话，建议安装cygwin，或是Mingw，常用的shell命令都有，应付一般的文本处理应该是绰绰有余。