44问答网
所有问题
当前搜索:
perl字符串截取
perl
怎么从一个序列中
截取
不同位置的
字符串
,并保存成txt格式
答:
open F,"1.txt"; #画面上文件open O,">2.txt"; #保存到2.txt@array=<F>;$count=0;foreach (@array){s/\s+//g;if(/[A-Z]+/){@new=split(undef,$_);}foreach (@new){ $count++; if($count>=10 and $count<=20){ push @new1, $_;} #把10和20分别改成你要的...
perl
提取
字符串
的指定部分
答:
my ( $min, $sec ) = ( $1, $2 );
如何用
PERL
语言在
字符串
寻找指定的字符是否存在.
答:
Result = ($Data =~ /[<>]/)?"FAIL":"PASS";2.($Data =~ /\)(.*?)=/) and ($R = $1);
perl
中如何提取包含相同的
字符串
答:
按照你的要求编写的
perl
程序如下(先用正则表达式提取,再用正则表达式替换)abc = ("abc","def","ghi","gkl","mno","abc.qqq","def.qqq","ghi.qqq","gkl.qqq","mno.qqq");$size=@abc;@www=();for($i=0;$i<$size;$i++){ $string=$abc[$i]; if($string=~ m/[A-Za-z]+...
perl
:怎么在一段文字中找到某个
字符串
的位置(多个位置)保留并输出...
答:
!/usr/bin/perl use 5.014;my $string = "perl berl derl
perlperl
cerl";my $key = "perl";my ( $pos, $now ) = ( 0, -1 );until ( $pos == -1 ) { pos = index( $string, $key, $now + 1 );now = $pos;say $pos unless $pos < 0;} ...
perl
怎么获取特定字符前面的
字符串
答:
re = 'http://music1.baidu.com/music1-abcdefghijk.mp3?key=20150310091012';if ($re=~m/^(.*?)\?/){ print $1;}
关于
perl
从文件中查找特定
字符串
:
答:
while ($str = <DATA>) {my @p = (0xFFFFFFFF, 0xFFFFFFFF);my $i = 0;while ($str =~ /(\w+)/g) {if ($1 eq 'decision') {$p[0] = $i; if (abs($p[0] - $p[1]) <= 6){print "matched\n"; last;}}elsif ($1 eq 'McMillon') {$p[1] = $i; if...
linux 中如何
截取
2个
字符串
中间的字符?
答:
可以用awk、sed、tr、
perl
都能实现 set s = '"stratum":{"accepted_shares":1,"algorithm"'set a = `echo $s | awk -F '["/:]' '{print $4}'`
在
perl
语言下如何去掉
字符串
的首字母?
答:
a=">total";if($a=~/^>(\S+)$/){ print $1;}
使用
perl
语言实现“输出输入
字符串
中含有该字符的个数。不区分大小写...
答:
!/usr/bin/
perl
print ("Please input the String\n");a=<STDIN>;print ("Please input the character\n");b=<STDIN>;chomp $a;#去掉结尾换行键 chomp $b;f=uc($b);h=uc($a);c=0;d=split(//,$h);g=$#d;print "@d\n";for ($i=0;$i<=$g;$i++){ if($d[$i] =...
1
2
3
4
5
6
涓嬩竴椤
其他人还搜
perl字符串拼接
perl第几个字符
perl不数空格检查第几个字符
perl怎么将内容写入文件
perl获取数组长度
perl不数空格
perl写入文件
perl怎么读取文件
perl文本处理