列替换

rockmars

UID: 35579
帖子: 21
积分: 48
在线时间: 10 分钟

1^# rockmars 发表于 2006-10-17 14:10

列替换

列替换
输入：
a|b|c|d|e|f|g|h
请问怎么能变为 a|b|c|g|e|f|d|h?

shucho

UID: 6257
帖子: 155
积分: 356
在线时间: 1 天 9 小时

2^# shucho 发表于 2006-10-17 15:46

能说的详细点？不是很明白.
能说的详细点？不是很明白你的问题。

alexru

UID: 11790
帖子: 75
积分: 172
在线时间: 8 小时

3^# alexru 发表于 2006-10-18 21:20

你是不是这个意思？
#!c:/perl/bin/perl.exe
@array=qw(a b c d e f g h);
$var=$array[3];
$array[3]=$array[6];
$array[6]=$var;
$"='|';
print "@array";

rockmars

UID: 35579
帖子: 21
积分: 48
在线时间: 10 分钟

4^# rockmars 发表于 2006-10-19 16:34

[quote]回复给 shucho : 能说的详细点？不是很明白....[/quote]
就是第4列与第7列互换，alexru 的回答可以满足要求，谢谢
还想问一下能不能通过单行命令直接实现

shucho

UID: 6257
帖子: 155
积分: 356
在线时间: 1 天 9 小时

5^# shucho 发表于 2006-10-19 17:07

perl -le ' print qw(a b .
perl -le ' print qw(a b c d e f g h)[0,1,2,6,4,5,3,7]'

cnhacktnt

UID: 40772
帖子: 111
积分: 255
在线时间: 17 小时

6^# cnhacktnt 发表于 2006-10-19 17:58

[quote]$str = 'a|b|c|d|e.
[quote]$str = 'a|b|c|d|e|f|g|h';
[color=red]@array = split(/\|/,$str) and @array[3,6] = @array[6,3];[/color][/quote]
这个时候你print 一下数组 @array 应该结果就是你想要的了

rockmars

UID: 35579
帖子: 21
积分: 48
在线时间: 10 分钟

7^# rockmars 发表于 2006-10-20 10:04

谢谢各位，总结了一下用下.
谢谢各位，总结了一下用下面命令可以实现了
perl -F'\|' -alne '@F[3,6]=@F[6,3];print join("|",@F)' array

array内容:
a|b|c|d|e|f|g|h