perl里如何实现awk的打印域？？？？？？？

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

1^# flyfeel 发表于 2008-05-26 13:32

perl里如何实现awk的打印域？？？？？？？

如：
my $src = "3 */12 * * * /opt/XXX/XXX/updateWhtList.pl &> /dev/null";

my $tmp=`echo $src | awk '{print $6}'`;
$tmp =~ /\/\w+\.?\s/;
my $dst = $&;
print "$dst\n";

就是我想获取到updateWhtList.pl 这个值。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-05-26 13:50

真土。
split 一下，然后 basename 一下，这才是正宗的 Perl 做法。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

3^# flw 发表于 2008-05-26 13:53

[Copy to clipboard] [ - ]

CODE:

flw@debian:~/study$ cat ttt.pl
use File::Basename;

my $src = "3 */12 * * * /opt/XXX/XXX/updateWhtList.pl &> /dev/null";
my @part = split /\s+/, $src;

my $scriptName = basename $part[5];
say $scriptName;
flw@debian:~/study$ perl -Mv5.10 ttt.pl
updateWhtList.pl
flw@debian:~/study$

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

4^# flyfeel 发表于 2008-05-26 13:53

是啊
我就是想知道perl是怎么实现的
谢谢楼上的

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

5^# flyfeel 发表于 2008-05-26 14:13

再问一下，为什么最后一项不用print而用say呢？
还有调用脚本是要 perl -Mv5.10。
因为我是5.8的所有错了。
把say改成print就对了。

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-05-26 14:20

say 和 print 是一样的。只是少打几个字母。

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

7^# cobrawgl 发表于 2008-05-26 14:56

say 是5.10的特性，你的5.8当然用不了

Ecore

UID: 27927
帖子: 2
积分: 4
在线时间: 10 分钟

8^# Ecore 发表于 2008-05-26 15:40

#!/usr/bin/perl -w
################################################
#  Author       : Ecore
#  Date       : 2008-03-12
#  Description       : like awk -F: '{print $1}' file
#  Usage       : awkpl.pl -F: -n 0 /etc/passwd
################################################

use strict;
use Getopt::Std;
use vars qw($opt_F $opt_n);
getopt("F:n:");

sub usage
{
      print "$0 -F : -n 1 filename\n";
      exit;
}

&usage unless (defined($opt_F) && defined($opt_n));

#print "-F = $opt_F\n";
#print "-n = $opt_n\n";
#print "@ARGV\n";

while(<>)
{
      my @filed = split /$opt_F/,$_;
      print "$filed[$opt_n]\n";
}

要使用split函数