Perl common usage

EricYeung

于 2011-01-20 18:51:00 发布

阅读量916

点赞数

分类专栏： Perl 文章标签： perl list apple

本文链接：https://blog.youkuaiyun.com/EricYeung/article/details/6155644

版权

Perl 专栏收录该内容

19 篇文章

订阅专栏

本文通过具体示例介绍了Perl语言的基础用法，包括正则表达式的匹配、字符串替换、数组操作及哈希表应用等核心功能，并展示了文件读取、条件判断等常见任务的实现方式。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#!/usr/bin/perl -w
use strict;

if ("helloworld" =~ / world/)
{
    print "match"
}
else
{
    print "bad."
}
print "/n";

# extract matches
my $time = "09:30:28";
my ($h, $m, $s) = ($time =~ /(/d/d):(/d/d):(/d/d)/);

print $h;
print $m;
print $s;
print "/n";

# replace
my $line = "hello world";
$line =~ s/world/perl/;
print $line;
print "/n";

#split
my @dict;
my $word_list = "apple banana orange";
@dict = split(//s+/, $word_list);
foreach(@dict) { print $_."/n"; };

# hash
my %hash1 = ();
foreach(@dict)
{
    $hash1{$_} = $_."_value";
}

# print hash
print "$hash1{$_} = $_/n" for keys %hash1;

# read file
print "content of ".$0."/n";
my @lines = ();
open(H1, "<$0") or die "fail to open".$0;
@lines = <H1>;
#print @lines;
print "line count = ".scalar(@lines)."/n";
close(H1);

# grep
my @odds = grep { $_ % 2 } 1..100;
print @odds;
print "/n";

# print time
print scalar localtime;