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/perl | |
#2014/06/27 HowOldAreYou | |
use strict; | |
use warnings; | |
use 5.010; | |
my $name; | |
my $age; |
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/perl | |
#2014/07/4 OddNumber EvenNumber | |
use strict; | |
use warnings; | |
use 5.010; | |
my $i; |
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/perl | |
=head1 algo01.pl | |
第1回 条件分岐と永久ループ http://codezine.jp/article/detail/1426 | |
1.コマンドラインに入力を待ち受けるための「>」を表示する。 | |
2.標準入力された値があればそのまま表示、値がなければ「未入力です」と表示して、再び入力待ち受け状態にする。 | |
3.「EXIT」が入力された時点でプログラムを終了する。 | |
=cut |
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/perl | |
use strict; | |
use warnings; | |
use 5.010; | |
say localtime(); | |
my ($sec,$min,$hour) = localtime(); | |
say "$hour 時 $min 分 $sec 秒"; |
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/perl | |
=head1 algo02.pl | |
第1回 第2回 条件分岐(複合条件) http://codezine.jp/article/detail/1495 | |
1. コマンドラインに「今日は何月何日でしょう?」のメッセージを表示する。 | |
2. それぞれ、「何月? ==> 」「何日? ==> 」を表示して入力を受け取る。 | |
3. 入力された月日が今日であれば「正解!!」、間違っていれば「間違っています」と表示する。 | |
=cut |
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/perl | |
#引数バージョン ver 0.9 | |
use strict; | |
use warnings; | |
my $msg = $ARGV[0]; | |
my @gitadd =`git add -A`; | |
my @gitcommit =`git commit -m $msg`; | |
my @gitpush = `git push`; |
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/perl | |
# 自分の得意な言語で | |
# Let's チャレンジ!! | |
use strict; | |
use warnings; | |
use v5.10; | |
my $max; | |
my $input_lines; |
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/perl | |
# 自分の得意な言語で | |
# Let's チャレンジ!! | |
use strict; | |
use warnings; | |
use v5.10; | |
my $max; | |
my $i; |
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/perl | |
#2014/12/09 尺取り虫とか累積和とかよーわからんのじゃー | |
use strict; | |
use warnings; | |
use v5.10; | |
use List::Util qw/ max /; | |
my $i; | |
my @input_lines; |
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
2014/12/7~10 | |
#1 | |
https://paiza.jp/poh/enkoi-second/d58e21ae?o=3e6a151d | |
#2 | |
https://paiza.jp/poh/enkoi-third/7b62cace?o=fdc490e3 | |
#3 60てん | |
https://paiza.jp/poh/enkoi-ending/3f39be7a?o=3e6a151d |
OlderNewer