Perl で ベンチマーク取得
use strict; use warnings; use Benchmark qw/timethese cmpthese/; my $hoge1 = qq(hoge) x 1; my $...
0
0
Comment0
11 search resultsShowing 1~11 results
Stocked
You need to log-in
Perl で標準入力から特定の文字列が含まれている行だけを出力する
# hogehoge が含まれている行を出力 print grep /hogehoge/, <>;
0
1
Comment0
Perl で標準入力から一行ずつ読み込む方法と全ての行を一度に読み込む方法
# 1行ずつ読み込んで処理 while(<>) { # ... } # 全ての行を読み込んでから処理 for(<>) { # ... }
0
0
Comment0
Perl で CSV の二番目の要素で昇順ソートして表示
# CSVの２番めの要素で昇順ソートして表示 print map {join q(,), @{$_}} sort {$a->[1] <=> $b->[1]} map {[...
0
0
Comment0
Perl で CSV の三番目の要素のみ抜き出して処理する
# CSVの３番目の要素のみ抜き出して処理する my @val = map { (split q(,) )[2] } <>; for(@val) { # ... }
0
0
Comment0
Perl で標準出力から使われている単語を表示
# 使われている単語を表示 print join qq(\n), grep { !$h{$_}++ } map { split } <>;
0
0
Comment0
Perl でメタ文字をエスケープする方法いろいろ
# メタ文字をエスケープしないまま正規表現にかけると地味にハマるので。。。 # メタ文字をエスケープする : my $path = qq(C:\\hogehoge\\hoge.dll); # ...
3
3
Comment0
Perl でシュフォーツ変換
# シュフォーツ変換 とか言うらしい。。。 my @logFiles = map { $_->[0] } # 4) ファイル名のみ取り出す sort { $b...
2
2
Comment0
Perl で配列の末尾の要素を取得
# スライスの末尾を取得 print my $fileName = (split /\\/, q(c:\hoge\hoge\hoge\foo.dll))[-1]; # > foo.dll
0
0
Comment0
Perlで日本標準時(JST)を取得
use strict; use warnings; use LWP::Simple; use Time::Piece; # NICT:日本標準時 http://www2.nict.go.jp/a...
1
1
Comment0
Perl で古いログ・ファイルから４つ削除する
# 古いログ・ファイルから４つ削除する unlink @f = ( map { $_->[0] } sort { $b->[1] <=> $a->[1] } ma...
0
0
Comment1
11 search resultsShowing 1~11 results
Qiita is a knowledge sharing service for engineers.
- You can follow users and tags
- You can stock useful information
- You can make edit suggestions for articles