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;