반응형 Perl-공부하기13 [Perl] - 펄 스크립트를 이용하여 자동으로 피카사에 사진 업로드하기 범수형이 만든 피카사 업로드 스크립트 #!/usr/bin/env perl use strict; use warnings; use LWP::UserAgent; use YAML qw( LoadFile ); my $config = LoadFile($ENV{HOME}.'/.google.conf'); my $user= $config->{username} or die "No Username"; my $pass= $config->{password} or die "No Password"; my $user_id = $config->{user_id} || 'default'; my $album_id = $config->{album_id} || 'default'; my @files = @ARGV; #===============.. 2012. 1. 26. 이전 1 2 3 4 다음 반응형