perl里面的uc（perl的排序）
本文目录
perl的排序
正则表达式（Regular Expression）方法可以满足你上面所需的要求
正则表达式通常被用来检索和/或替换那些符合某个模式的文本内容。
建立perl脚本如下:
#!/usr/bin/perl -w
# sort.pl
my @new;
while (《》) {
next if /^\[/;
my @tmp = /+/ig;
pop @tmp;
my $f = pop @tmp;
push @new, ;
}
@new = map { @$_ } @new;
print "$_\n" for @new;
----------------
perl sort.pl yourfile
perl 中如何实现字符串大小写转换
lc, uc分别是小写和大写函数
大小写字母转换：
函数 uc (uppercase) 将所有的小写字母转成大写；
函数 lc (lowercase) 将所有的大写字母转成小写；
Perl提供了四个内置的函数类，从而能够轻松地改变字符和字的大小写。函数uc()会用大写返回其所有的参数，而lc()会用小写返回其参数。如果没有指定参数的话，uc()和lc()都会对$_变量进行操作。
要改变字的首字母的大小写，就要使用ucfirst()和lcfirst()。和uc()以及lc()类似，如果没有指定参数，ucfirst()和lcfirst()会对$_变量进行操作。
这四个函数都不会改变其参数；它们只是会返回其参数的副本，而这个副本经过了改变。所以，你必须将结果分派给一个变量或者打印它，或者用其他的方式使用返回的值。像下面这样做是一个常见的错误：
$a = ’hello’;
uc($a);
print $a;
第一眼看上去，你可能会预计这段代码将打印“HELLO”。但是，由于uc()没有更改其参数，所以它的结果只打印了小写的“hello”。要获得预期的结果，就要使用像下面这样的代码：
$a = ’hello’;
$a = uc($a);
print $a;
更改字的大小写的另一种方式，是对双引号里面的字符串使用/L和/U逸出序列。使用下面的代码你可以获得与前面相同的结果：
$a = ’hello’;
print "/U$a/E";
逸出字符/E会结束前面逸出字符（在这里是/U）开始的内容。
利用Perl内置的大写和小写函数，以及双引号里的逸出字符/U和/L，改变（字符的）大小写是很容易的。
单词首字母大写
$str =~ s/(\w+)/\u$1/
在perl中，我们可以通过uc,lc,\U,\L来修改变量的大小写。其中uc，\U是将变量中的字母全部转换为大写，对应的lc和 \L是将变量中的字母全部转换为小写。如果我们只想将变量的首字母大写或将变量的首字母小写，我们可以使用perl提供给我们的另外两个函数 ucfirst和lcfirst来实现，下面我们来看一个具体的例子：
#! /usr/bin/perl
use strict;
use warnings;
my $little = "hello";
print "little:$little\n";
my $big = uc($little);
print "big:$big";
$little = lc($big);
print "little:$little\n";
$big = "\U$little";
print "big:$little";
$little = "\l$big";
print "little:$little\n";
$big = ucfirst($little);
print "big:$little\n";
$little = lcfirst($big);
print "little:$big\n";
上面的这个程序打印的结果如下：
hello
HELLO
hello
HELLo
hello
Hello
hello
perl计算每行长度和里面的AUCG
输出的描述不确切，不清楚是否长度相同的行里，AUCG是单独统计还是合计。下面的程序按合计来处理。
#!/usr/bin/perl
use strict;
my %hash;
open FILE,"aucg.txt";
foreach my $line (《FILE》)
{
# 忽略以》开头的行
next if ($line =~ /^》/);
# 去除回车换行符
chop($line) if ($line =~ /$/);
my $len = length($line);
# 行数+1
$hash{$len}-》{num} ++;
# 分别计数
$hash{$len}-》{A} += &count($line, ’A’);
$hash{$len}-》{U} += &count($line, ’U’);
$hash{$len}-》{C} += &count($line, ’C’);
$hash{$len}-》{G} += &count($line, ’G’);
}
close FILE;
# 按长度排序输出
foreach my $n (sort keys %hash)
{
print "长度为$n共有$hash{$n}-》{num}:\n";
print " A: $hash{$n}-》{A}\n";
print " U: $hash{$n}-》{U}\n";
print " C: $hash{$n}-》{C}\n";
print " G: $hash{$n}-》{G}\n";
print "\n";
}
# 统计字符在字符串中出现的次数
sub count
{
my ($line,$c) = @_;
my $num = 0;
my $len = length($line);
# 将字符串拆分为数组
my @str = split(//, $line);
for (my $i=0; $i《$len; $i++)
{
($str eq $c) and ($num++);
}
return $num;
}
Perl里面有lc这个关键字么
lc就是转换成小写，比如$side=lc $attrs转换成小写赋值给$side。
对应的是uc转换成大写，如：$gender=uc $atters转换成大写赋值给$gender。
更多文章：
2026年10月11日 05:30
跷二郎腿太低好吗？想要通过贴墙站改正二郎腿影响的话，有哪些要点需要注意
2026年10月11日 05:10
易语言点击js按钮（易语言网页填表怎样点击链接为“javascript:void（0）“的按钮）
2026年10月11日 03:00
2026年10月11日 01:10
2026年10月11日 01:00
compare with造句（用compared with和compared to造句）
2026年10月10日 23:30
2026年10月10日 22:50
tensorflow与keras对应版本（为什么tensorflow2.8没有keras）
2026年10月10日 22:10
2026年10月10日 22:00
maven仓库jar网站（如何在maven仓库中添加jar包）
2026年10月10日 19:50
