TPP参加国の雇用が自由になり、ローソンが店員をベトナムで募集し日本店舗で採用する。彼等の平均月収はベトナム国内では２～3万円、だからコンビニ店員は3万円ですむ。これで競争力が付く。という発言からもはや電波ゆんゆん。確かにベトナム国内の平均月収は日本よりは相当低いかもしれないが、そのかわり物価も安い。だが、日本に連れてきた瞬間から、彼らは日本の物価水準で過ごす必要がある。月給3万渡した所で住居や食事ができなければ日本で暮らしていくことは不可能であろう。つまり「ベトナムから労働者を連れてきて月給3万で雇う」などということは無理なのである。それくらい考えてからTweetするなりRTするなりすれば良いと思うのだが反TPP脳はそこまで回らず思考停止に陥るようである。
一般的にトレーニングマシン等に表示される消費カロリーは、運動によって増えた消費カロリーだけでなく、体温維持や心臓の拍動などといった、運動の有無に関わりなく消費したカロリーも含んだ、合計の値です。イースマ☆ノートでは、後者はあらかじめ考慮されていますので、運動欄には運動によって増えた分だけが計算・表示されます。
Back by popular demand is A La Car & Art, a classic and custom car show featuring the world’s coolest hot rods, macho muscle cars, sleek sports cars and tricked out low riders—just a sampling of the world-class cars expected to be on display. Saturday’s car show will be hosted by the San Francisco–based Laf A Lots car club and the Silicon Valley Corsa Club. Sunday’s car show will be hosted by Hot San Jose Nights and the Nor-Cal Chevelle Camino Club.ということで古い車や改造車が色々展示されているのを期待していたのだが...
#!/usr/local/bin/perl
eval {
#########################################################
# Read in the string from the form
#########################################################
if ($ENV{'REQUEST_METHOD'} eq "GET") {
$FORM_DATA = $ENV{'QUERY_STRING'};
} else {
$LENGTH = $ENV{'CONTENT_LENGTH'};
while ($LENGTH) {
$FORM_DATA .= getc(STDIN);
$LENGTH--;
}
}
#########################################################
# Split the input string into individual variables
#########################################################
foreach (split(/&/, $FORM_DATA)) {
($NAME, $VALUE) = split(/=/, $_);
$NAME =~ s/\+/ /g;
$NAME =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
$VALUE =~ s/\+/ /g;
$VALUE =~ s/%([0-9|A-F]{2})/pack(C,hex($1))/eg;
# find a unique name for select boxes
$NUM ="0";
while ($FORMDATA{$NAME} ne "") {
$NUM++;
$NAME =~ s/\.([0-9]+$)|$/\.$NUM/;
}
$FORMDATA{$NAME} = $VALUE;
}
$product = $FORMDATA{"product"};
$product =~ tr/a-z/A-Z/;
$docdirname = "/ws/w1/htmldocs/shared/semi/PDF/";
$docext = "pdf";
$docurlbase = "/semi/PDF/";
$filename = "$docdirname$product.$docext";
$default = "$product.$docext";
local(@matched, @ids, $re);
# get a list of the product ids
opendir(DOCDIR, $docdirname) || die($ENV{'SCRIPT_NAME'}||$0. ": opendir(): can't open directory \"$docdirname\": $!\n");
@ids = readdir(DOCDIR);
closedir(DOCDIR);
@ids = grep(/\.$docext$/i && s/\.$docext$//i, @ids);
if(@matched == 0) {
# make a regexp of possible $product matches
$re = $product;
# look for match
@matched = grep(/$re/i, @ids);
}
if(@matched == 0) {
# make a regexp of possible $product matches
$re = join("|", omit_list(+1, $product),
omit_list(-1, $product),
miss_list(-1, $product),
transpose_list($product));
$re = '^(?:'.$re.')$';
# look for match
@matched = grep(/$re/i, @ids);
}
# sort @matched
sub sortsub {
my $ta, $tb;
($ta = $a) =~ tr/A-Z/a-z/;
($tb = $b) =~ tr/A-Z/a-z/;
$ta cmp $tb;
}
@matched = sort sortsub @matched;
# if((! -r $filename) && (@matched != 1))) {
if(@matched == 1) {
$errmsg = "The product code you entered, $product, is similar to this product: ".
join("", map("$_", @matched)).
". If this is not what you wanted, you can try another product code, or go to a product category, by selecting it below.";
} elsif(@matched > 1) {
$errmsg = "
The product code you entered, $product, is similar to these products:
If none of these are what you wanted, you can try another product code, or go to a product category, by selecting it below."; } else { $errmsg = "