読者です 読者をやめる 読者になる 読者になる

perl メモ(ファイル)

perl
#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

{
    open TXT, '>', 'out.txt';
    say TXT "Hello, world1";
    say TXT "Hello, world2";
    close TXT;

    open my $fh, '<', 'out.txt'
        or die "Could not open out.txt: $!";
    while (<$fh>) {
        print;
        # Hello, world1
        # Hello, world2
    }
    close $fh;
}
exit;