Skip to content

Instantly share code, notes, and snippets.

View konoha81's full-sized avatar

konoha konoha81

View GitHub Profile
#!/usr/bin/env perl
use strict;
open(IN,"cell.txt") or die("error!");
my @Name;
my @Q2;
my @Q3;
#!/usr/bin/env perl
use strict;
use LWP::Simple;
use Crypt::SSLeay;
use XML::Simple;
use Data::Dumper;
print("\n***** 最新のpostから指定枚数だけ遡り、スコア順に並び替えて画像を取得します。\
#!/usr/bin/env perl
use strict;
use utf8;
use Encode;
# 出現確率ファイルを読み込む
# Like.txtの読み込み
open(LIKE, "Likeprob.txt") or die "$!";
#!/usr/bin/env/ perl
use strict;
use utf8;
use Encode;
print("読み込みたいテキストの名前を入力してください\n");
my $text = <STDIN>;
chomp($text);
@konoha81
konoha81 / gist:5333839
Created April 8, 2013 02:43
FizzBuzz@perl
#!/usr/local/bin/perl
use strict;
my $i = 1;
while($i <= 100){
if($i % 3 == 0 && $i % 5 == 0){