lehanto

# -*- coding: utf-8 -*-


dic = {}
print dic

dic['YEAR']  = '2015'
dic['MONTH'] = '06'
dic['DAY']   = '26'

lehanto

require 'rubygems'
require 'exifr'

@exif = EXIFR::JPEG::new('hoge.jpg')


# カメラ機種
puts "カメラ:#{@exif.model}"

# シャッタースピード

lehanto

gem install exifr

lehanto

#!/usr/bin/env perl
use strict;
use warnings;

my @lines;
my @reverse_lines;

@lines = <STDIN>;

print @lines;

lehanto

#!/usr/bin/env perl
use strict;
use warnings;

chomp(my @name_lines = <STDIN>);

my @sorted_name_lines = sort @name_lines;

print "@sorted_name_lines";

lehanto

#!/usr/bin/env perl
use strict;
use warnings;

my @names = qw/ fred betty barney dino wilma pebbles bamm-bamm /;

chomp(my @nums = <STDIN>);

foreach (@nums) {
print $names [$_ - 1];

lehanto

@lines = <STDIN>; //リストコンテキストでの標準入力

lehanto

qw ( hoge Taro Hanako )

lehanto

("hoge", "Taro", "Hanako")

lehanto

#!/usr/bin/env perl
use strict;
use warnings;

my $num;
my $string;
my $answer;

print "num >";
$num = <STDIN>;