Perlゼミ

Perlを使い始める最も簡単な方法

Perlを使い始める最も簡単な方法は、PerlBanjo.comを使用することです。

次のソースコードをPerlBanjo.comにコピーして、実行ボタンをクリックしてください。

print "Hello World！\ n";

結果：

Hello World!

正規表現

正規表現の例を最新のPerlの書き方で書きます。

use v5.36;

my $message = 'I like apples. I buy apples.';

say "Input:$message";

$message =~ s/apple/orange/g;

say "Outpu:$message";

結果：

Input:I like apples. I buy apples.
Outpu:I like oranges. I buy oranges.

CSVの解析

1ファイルでのCSVの解析。 ,は、空白に変換されます。

use v5.36;

while (my $line = <DATA>) {
  chomp $line;
  
  my ($id, $name, $price) = split(',', $line);
  
  my $new_line = join(' ', $id, $name, $price);
  
  say $new_line;
}

__DATA__
1,Perl,2000
2,Database,3000
3,Web,4000

Result:

1 Perl 2000
2 Database 3000
3 Web 4000

Parsing UTF-8 CSV

UTF-8で書かれたCSVの解析。

use v5.36;
use utf8;
use Encode 'decode', 'encode';

while (my $line = <DATA>) {
  $line = decode('UTF-8', $line);
  
  chomp $line;
  
  my ($id, $name, $price) = split(',', $line);
  
  my $new_line = join(' ', $id, $name, $price);
  
  say encode('UTF-8', $new_line);
}

# Plain UTF-8 CSV data

no utf8;

__DATA__
1,Perl,2000
2,あいう,3000
3,えお,4000

Result:

1 Perl 2000
2 あいう 3000
3 えお 4000