Perlのコード一覧 | Codetter（こーどったー）

#!/usr/bin/perl
my $count = 0;
for(my $i = 2, my $f = 0; 1; $i++, $f = 0){
    for(my $j = $i - 1; $j > 1; $j--){
        if($i % $j == 0 && $i != 1){ $f = 1; }

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

my $text = "";

aaaaaaaaaaaaa

use strict;
use warnings;
use Tie::LevelDB;

my $db = new Tie::LevelDB("/tmp/testdb");

#!/usr/bin/perl

use strict;
use warnings;
use Fcntl;

#!/usr/bin/perl
use strict;
use warnings;
print "Input Number : ";
my $num = <STDIN>;

#!/usr/bin/perl
use strict;
use warnings;
print "hello world!\n";

#!/usr/bin/perl

use strict;

print "なにこれｗ\n";

print "Hello, world!\n"