ファイル内のfooをすべてpiyoに置換するにはこうします。
sedでやるならこう。
perl -pi -e 's/foo/piyo/g' file.txt
sedでやるならこう。
sed -i -e 's/foo/piyo/g' file.txt
perl -pi -e 's/foo/piyo/g' file.txt
sed -i -e 's/foo/piyo/g' file.txt
$ which perl
/usr/local/bin/perl
$ sudo yum install expat-devel
$ cpanm LWP::UserAgent::Determined --force
$ cpanm Amazon::S3
これでいけるはずです。
use strict;
use warnings;
use Amazon::S3;
my $s3 = Amazon::S3->new({
aws_access_key_id => 'foo', # アクセスキーID
aws_secret_access_key => 'bar', # シークレットアクセスキー
retry => 1,
});
my $bucket = $s3->bucket('yourbucketname'); # あらかじめ作成したバケット名を指定
my $filepath = '/tmp/hello.txt'; # ローカルのファイルパス名
my $keyname = 'tmp/hello.txt'; # S3上のオブジェクトパス名
$bucket->add_key_filename($keyname, $filepath) or die $s3->err . ':' . $s3->errstr;
空行を除くと12行です。print ref $obj;
use strict;
use CGI;
my $obj = CGI->new;
print ref $obj,"\n"; # => 'CGI'