37,742
社区成员
发帖
与我相关
我的任务
分享关于perl的一个读取字符串的问题
文件中有一行如下：
Audit file /oracle/app/oracle/admin/test10gr2/adump/ora_1282152.aud
我知道匹配/ora_\d+\.aud/，能匹配这一行，但是我如何操作才能得到1282152这串数字呢。
System name: AIX
同样地问题，如何得到AIX
我是先匹配System name这行，然后返回“\t”和“\n”的位置，然后截取字符串，并去除换行符，才得到的AIX。
跪求各路高手帮忙解决啊。
Audit file /oracle/app/oracle/admin/test10gr2/adump/ora_1282152.aud
我知道匹配/ora_\d+\.aud/，能匹配这一行，但是我如何操作才能得到1282152这串数字呢。
System name: AIX
同样地问题，如何得到AIX
我是先匹配System name这行，然后返回“\t”和“\n”的位置，然后截取字符串，并去除换行符，才得到的AIX。
跪求各路高手帮忙解决啊。
...全文
请发表友善的回复…
发表回复
myfzlb 2011-09-21
- 打赏
- 举报
[Quote=引用 4 楼 iambic 的回复:]
括号的位置加错了……
Perl code
$my $id = $1 if /ora_(\d+)\.aud/;
[/Quote]
对诶，括号的作用就是用来赋值给默认变量的吗？
括号的位置加错了……
Perl code
$my $id = $1 if /ora_(\d+)\.aud/;
[/Quote]
对诶，括号的作用就是用来赋值给默认变量的吗？
iambic 2011-09-21
- 打赏
- 举报
括号的位置加错了……
$my $id = $1 if /ora_(\d+)\.aud/;myfzlb 2011-09-21
- 打赏
- 举报
[Quote=引用 1 楼 iambic 的回复:]
Perl code
$my $id = $1 if /ora_\(d+)\.aud/;
[/Quote]
if($line[$_]=~/ora_\d+\.aud/){
$num=$1;
print $num;
}
为什么输出为空啊
Perl code
$my $id = $1 if /ora_\(d+)\.aud/;
[/Quote]
if($line[$_]=~/ora_\d+\.aud/){
$num=$1;
print $num;
}
为什么输出为空啊
myfzlb 2011-09-21
- 打赏
- 举报
if($line[$_]=~/ora_\d+\.aud/){
$num=$1;
print $num;
}
为什么输出为空啊
$num=$1;
print $num;
}
为什么输出为空啊
iambic 2011-09-21
- 打赏
- 举报
$my $id = $1 if /ora_\(d+)\.aud/;
