louiee

#!/usr/bin/perl

# 2014/06/19 fizzbuzz 

use strict;
use warnings;

my $count;

for ($count = 1; $count < 100; $count++) {

louiee

#!/usr/bin/perl

#2014/06/27 HowOldAreYou

use strict;
use warnings;
use 5.010;

my $name;
my $age;

louiee

#!/usr/bin/perl

#2014/07/4 OddNumber EvenNumber

use strict;
use warnings;
use 5.010;

my $i;

louiee

#!/usr/bin/perl

=head1 algo01.pl
第1回　条件分岐と永久ループ http://codezine.jp/article/detail/1426

1.コマンドラインに入力を待ち受けるための「>」を表示する。
2.標準入力された値があればそのまま表示、値がなければ「未入力です」と表示して、再び入力待ち受け状態にする。
3.「EXIT」が入力された時点でプログラムを終了する。
=cut

louiee

#!/usr/bin/perl


use strict;
use warnings;
use 5.010;

say localtime();
my ($sec,$min,$hour) = localtime();
say "$hour 時 $min 分　$sec 秒";

louiee

#!/usr/bin/perl

=head1 algo02.pl
第1回　第2回　条件分岐（複合条件） http://codezine.jp/article/detail/1495

 1. コマンドラインに「今日は何月何日でしょう?」のメッセージを表示する。
 2. それぞれ、「何月? ==> 」「何日? ==> 」を表示して入力を受け取る。
 3. 入力された月日が今日であれば「正解!!」、間違っていれば「間違っています」と表示する。
=cut

louiee

#! /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`;

louiee

#!/usr/bin/perl
# 自分の得意な言語で
# Let's チャレンジ！！

use strict;
use warnings;
use v5.10;

my $max;
my $input_lines;

louiee

#!/usr/bin/perl
# 自分の得意な言語で
# Let's チャレンジ！！

use strict;
use warnings;
use v5.10;

my $max;
my $i;

louiee

#! /usr/bin/perl
#2014/12/09 尺取り虫とか累積和とかよーわからんのじゃー

use strict;
use warnings;
use v5.10;
use List::Util qw/ max /;

my $i;
my @input_lines;