Perlに投稿されたコード一覧

Perl Prime Number

#!/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; }
    }
    if($f == 0){ printf("%d\n", $i, $count++); }
}

Perl 素数計算

#!/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; }
    }
    if($f==0){ printf("%d\n", $i,$count++); }
}

Perl 正規表現

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

my $text = "";
$text .= 'Assert.AreEqual("詳説 正規表現", row.Title);'                . "\n" ;
$text .= 'Assert.AreEqual("ジェフリ- E.F.フリ-ドル", row.Author);' . "\n" ;
$text .= 'Assert.AreEqual("オライリージャパン", row.Publisher);'       . "\n" ;

foreach (split /\n/, $text) {
	s/row\.(\w+)/row["$1"]/;
	print $_ . "\n";
}

Perl テスト

aaaaaaaaaaaaa

Perl LevelDBを使ってみる(モジュールの例を写経)

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

my $db = new Tie::LevelDB("/tmp/testdb");
$db->Put("Google","Don't be evil!");
print $db->Get("Google")."\n";
$db->Delete("Google");

__END__
$ ls -l /tmp/testdb/
合計 16
-rw-r--r-- 1 ymko ymko 65536 2011-07-31 03:14 000003.log
-rw-r--r-- 1 ymko ymko    16 2011-07-31 03:14 CURRENT
-rw-r--r-- 1 ymko ymko     0 2011-07-31 03:14 LOCK
-rw-r--r-- 1 ymko ymko    53 2011-07-31 03:14 LOG
-rw-r--r-- 1 ymko ymko 65536 2011-07-31 03:14 MANIFEST-000002

Perl Perlで「確実に閉じる」コード

#!/usr/bin/perl

use strict;
use warnings;
use Fcntl;
use IO::Handle;

my $fn    = "test.txt";
my $newfn = "tmp.$$";
my $data  = "test.$$";

open my $fh, '>', $newfn
    or die "failed to open file:$newfn:$!";
print $fh $data;
IO::Handle::flush($fh)
    or die "flush failed:$!";
IO::Handle::sync($fh)
    or die "fsync failed:$!";
close $fh;

if (-f $fn) {
    unlink "$fn~" if -f "$fn~";
    link $fn, "$fn~"
        or die "failed to link $fn to $fn~:$!";
}
rename $newfn, $fn
    or die "failed to rename $newfn to $fn:$!";

sync_dir('.');

sub sync_dir {
  my $dir = shift;
  sysopen my $d, $dir, O_RDONLY
    or die "failed to open directory:$dir:$!";
  open my $d2, '>&', fileno($d)
    or die "dup(2) failed:$!";
  IO::Handle::sync($d2)
    or die "fsync(2) failed:$!";
}

Perl お試し:素数計算

#!/usr/bin/perl
use strict;
use warnings;
print "Input Number : ";
my $num = <STDIN>;
my $count = 0;
for(my $i = 2; $i <= $num; $i++){
    my $f = 0;
    for(my $j= $i - 1; $j > 1; $j--){
        if($i % $j == 0 && $i != 1){
            $f = 1;
        }
    }
    if($f==0){
        printf("%d\n", $i,$count++);
    }
}

Perl とりあえず試してみる

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

Perl なにこれw

#!/usr/bin/perl

use strict;

print "なにこれw\n";

Perl Hello, world!

print "Hello, world!\n"

よく投稿されているコード

タグ

最近投稿されたコード