Skip to content

Instantly share code, notes, and snippets.

View note103's full-sized avatar
🏠
Working from home

Hiroaki Kadomatsu note103

🏠
Working from home
18 followers · 17 following
View GitHub Profile
@note103
note103 / perl_entrance_score_star.pl
Last active December 27, 2015 00:59
Perl入学式in東京vol.3の復習問題「score.pl」より 第3問『五段階評価』。
#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
binmode STDOUT, ":utf8";
#ここからしばらく素材データ。
my $papix = {
name => 'papix',
@note103
note103 / perl_entrance_score_highscore.pl
Last active December 27, 2015 02:38
Perl入学式in東京vol.3の復習問題「score.pl」より 第4問『所属毎の スコアが 60 以上の人の名前を格納する』。
#!/usr/bin/env perl
use strict;
use warnings;
use DDP;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
@note103
note103 / perl_entrance_score_json.pl
Created October 31, 2013 17:24
Perl入学式in東京vol.3の復習問題「score.pl」より 第5問『JSON風Dumper』。
#!/usr/bin/env perl
use strict;
use warnings;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
python => 50,
@note103
note103 / practice_food.pl
Created November 28, 2013 00:36
https://github.com/perl-entrance-org/workshop-2013-04/blob/master/practice.md#3-foodpl
#!/usr/bin/env perl
use strict;
use warnings;
my $data = q{
papix : sushi
moznion : soba
boolfool : sushi
macopy : sushi
};
@note103
note103 / count.pl
Last active December 29, 2015 21:19
書籍編集時の注釈作成個数のカウント、その見出し内容の把握に使用。
#!/usr/bin/env perl
use strict;
use warnings;
#notes.txtに注釈テキストを記載。
#行頭に各項目の進捗を表す数種類の記号を付記し、その見出し（注釈タイトル）と作成の進捗状況を一覧化する。
open (FILE, 'notes.txt') or die "$!";
my ($count, $count2, $count3);
@note103
note103 / perl_entrance_score_star2.pl
Last active December 31, 2015 06:29
perl_entrance_score_star2.pl
#!/usr/bin/env perl
use strict;
use warnings;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
python => 50,
@note103
note103 / perl_entrance_score_highscore2-1.pl
Created December 14, 2013 18:40
perl_entrance_score_highscore2-1.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
@note103
note103 / perl_entrance_score_highscore2-2.pl
Last active December 31, 2015 08:49
perl_entrance_score_highscore2-2.pl
#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
@note103
note103 / perl_entrance_score_json2.pl
Last active December 31, 2015 10:19
perl_entrance_score_json2.pl
#!/usr/bin/env perl
use strict;
use warnings;
my $papix = {
name => 'papix',
affiliation => 'namba.pm',
perl => 60,
python => 50,
@note103
note103 / vote.pl
Last active December 31, 2015 20:09
vote.pl 2013-12-19
#!/usr/bin/env perl
use strict;
use warnings;
my $me = {
name => 'Hiroaki',
food => [qw/egg rice potato beef/],
};
my $bob = {
name => 'Bob',