Perl基本语法

变量声明：Perl的变量使用特殊符号（如$、@、%）来标识其类型。例如，$表示标量（scalar）变量，@表示数组（array）变量，%表示哈希（hash）变量。

my $scalar_variable = 10;

my @array_variable = (1, 2, 3);

my %hash_variable = ('key1' => 'value1', 'key2' => 'value2'); 

条件语句：Perl支持常见的条件语句，如if、else、elsif、unless等。

if ($condition) {

        # do something

} elsif ($another_condition) {

        # do something else

} else {

        # do something if all conditions fail

} 

循环结构：Perl提供了多种循环结构，如for、foreach、while、until等。

for my $item (@array) {

        # do something with $item

}

foreach my $key (keys %hash) {

        # do something with $hash{$key}

}

while ($condition) {

        # do something while condition is true

} 

子程序：Perl中可以定义和调用子程序（也称为函数）来组织代码和实现可重用性。

sub my_subroutine {

        my ($param1, $param2) = @_;

        # do something with parameters return $result;

}

# 调用子程序

my $output = my_subroutine($arg1, $arg2); 

文件处理：Perl对文件处理提供了强大的支持，包括打开、读取、写入和关闭文件等操作。

open(my $file_handle, '<', 'filename.txt') or die "Cannot open file: $!";

while (my $line = <$file_handle>) {

        chomp($line); # remove newline character

        # process $line

}

close($file_handle); 

正则表达式：Perl在文本处理方面非常强大，支持灵活的正则表达式操作。

my $string = "Hello, World!";

if ($string =~ /Hello/) {

        print "String contains 'Hello'\n";

}

my $modified_string = $string =~ s/Hello/Hi/g;

print "$modified_string\n"; # Output: Hi, World!