This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
open(IN,"cell.txt") or die("error!"); | |
my @Name; | |
my @Q2; | |
my @Q3; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use LWP::Simple; | |
use Crypt::SSLeay; | |
use XML::Simple; | |
use Data::Dumper; | |
print("\n***** 最新のpostから指定枚数だけ遡り、スコア順に並び替えて画像を取得します。\ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; | |
use utf8; | |
use Encode; | |
# 出現確率ファイルを読み込む | |
# Like.txtの読み込み | |
open(LIKE, "Likeprob.txt") or die "$!"; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env/ perl | |
use strict; | |
use utf8; | |
use Encode; | |
print("読み込みたいテキストの名前を入力してください\n"); | |
my $text = <STDIN>; | |
chomp($text); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/local/bin/perl | |
use strict; | |
my $i = 1; | |
while($i <= 100){ | |
if($i % 3 == 0 && $i % 5 == 0){ |