한 가지 방법으로 perl
:
내용 script.pl
:
use warnings;
use strict;
## Check arguments.
die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;
my (@alpha, @digit);
while ( <> ) {
## Omit blank lines.
next if m/\A\s*\Z/;
## Remove leading and trailing spaces.
s/\A\s*//;
s/\s*\Z//;
## Save alphanumeric fields and fields with
## only digits to different arrays.
if ( m/\A[[:alpha:]]+\Z/ ) {
push @alpha, $_;
}
elsif ( m/\A[[:digit:]]+\Z/ ) {
push @digit, $_;
}
}
## Get same positions from both arrays and print them
## in the same line.
for my $i ( 0 .. $#alpha ) {
printf qq[%s %s\n], $alpha[ $i ], $digit[ $i ];
}
내용 infile
:
AAAA
BBBB
CCCC
DDDD
1234
5678
9012
3456
EEEE
7890
다음과 같이 실행하십시오.
perl script.pl infile
그리고 결과 :
AAAA 1234
BBBB 5678
CCCC 9012
DDDD 3456
EEEE 7890
emacs
.. 당신은elisp
해결책 을 찾고 있습니까 , 아니면 emacs에서 쉘 스크립트를 실행하는 방법을 찾고 있습니까?