#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex = '^bar'; $string =~ s/$regex//; print $string . "\n"; 実行結果 foo ^bar baz#!/usr/bin/perl use strict; use warnings; my $string = 'foo ^bar baz'; my $regex =…

そういうときは<>演算子じゃなくて、readlineだよってお話。 #!/usr/bin/perl use strict; use warnings; our $test = './test.txt'; my $hashref = fh_open($test); while(<$hashref->{handle}>){ print; } exit(); sub fh_open{ my $filename = shift; ope…

公式:http://gearman.org/ キューイングを使うメリット ウェブアプリケーションを対象として考えています。 処理を分別できる。 今すぐ必要な処理、後回しにして良い処理、負荷が高い処理、負荷が低い処理を分別することができます。 ユーザがすぐに確認しな…