ishiducaの日記 このページをアンテナに追加 RSSフィード

2009-03-13

[][][][][][][]続・続・Windowsのコマンドプロントには「ls」コマンドがないので、ワンライナーでそれっぽく代用する 00:17 続・続・Windowsのコマンドプロントには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 を含むブックマーク はてなブックマーク - 続・続・Windowsのコマンドプロントには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 続・続・Windowsのコマンドプロントには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 のブックマークコメント

前述の

とか

を見直していて、こんな書き方もできるなと

$ perl -wl -e '$,="\n"; \
> print map { join "\t",scalar localtime((stat $_)[9]), $_ } @ARGV;' *

stat関数を使って、最終更新日をオプション表示した「ls」コマンドもどきのワンライナー。スクリプト版より情報量が少ないけれど、Stat::lsMode モジュールを使わない分、手軽に使えるんじゃないかと思います。Stat::lsMode モジュールはcpanからインストールする手間があるから面倒な人もいるだろうし。

# 結果
Sun Jan 18 10:28:23 2009    sign.txt
Sun Jan 18 13:51:45 2009    内部監査手順.txt
Sun Jan 25 13:36:08 2009    temp.html
Sun Mar  1 15:20:15 2009    15477800_500.jpg
Sun Mar  8 13:11:02 2009    perl_ls
Thu Feb 19 16:06:56 2009    安全管理規程.txt

まだmap関数とstat関数が飲み込めていないけど、参考にしたところなど

SarifulSariful2012/02/23 16:10Grazi for mkiang it nice and EZ.

crvhjwrmburcrvhjwrmbur2012/02/25 03:2618jHbJ <a href="http://bhiwvkzbhltn.com/">bhiwvkzbhltn</a>

znjenwlznjenwl2012/03/01 01:306WkeFg <a href="http://tgsptrunopdl.com/">tgsptrunopdl</a>

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090313

2009-03-08

[][][][]Windowsのコマンドプロンプトには「ls」コマンドがないので、ワンライナーでそれっぽく代用する 09:36 Windowsのコマンドプロンプトには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 を含むブックマーク はてなブックマーク - Windowsのコマンドプロンプトには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 Windowsのコマンドプロンプトには「ls」コマンドがないので、ワンライナーでそれっぽく代用する - ishiducaの日記 のブックマークコメント

> perl -wl -e '$,="\n"; print <*>;'

当然、Perlがインストールされていないと意味がない。あと、隠しファイルの場合は「<*>」を「<.*>」にする。「<.* *>」もあり。


追記 2009.03.08

任意の拡張子のファイル(この例だと「.txt」「.pl」)をリストする時には

> perl -wl -e '$,="\n"; print @ARGV;' *.txt *.pl

KipliKipli2012/06/07 10:17Fiindng this post has solved my problem

bqtgebmvrkbqtgebmvrk2012/06/07 20:44tSnpI6 <a href="http://szepiuqnbvdq.com/">szepiuqnbvdq</a>

bgebwyvpcsbgebwyvpcs2012/06/12 03:41QuzFIv <a href="http://bevrhjshdskz.com/">bevrhjshdskz</a>

vqnxgsvqnxgs2012/06/13 09:00uKYnq0 , [url=http://jzoegncuwcdb.com/]jzoegncuwcdb[/url], [link=http://jtzcwsjlubwn.com/]jtzcwsjlubwn[/link], http://irrladcrhhgr.com/

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090308

2009-02-28

[][][]findコマンドを利用して動画リストを作ってみたよ。 20:25 findコマンドを利用して動画リストを作ってみたよ。 - ishiducaの日記 を含むブックマーク はてなブックマーク - findコマンドを利用して動画リストを作ってみたよ。 - ishiducaの日記 findコマンドを利用して動画リストを作ってみたよ。 - ishiducaの日記 のブックマークコメント

動画の連続再生をさせるためのリストを作りたいと思ったので、試してみました。

動画リストは .m3u 形式で作ります。これをVLCメディアプレイヤーなんかで読み込んで再生します。

$ find $HOME \( -name '*.mpg' -or -name '*.wmv' \) -print |
> perl -wplaF'/' -e 'BEGIN{ print"#EXTM3U"; } s|.+|#EXTINF:$F[-1]\nfile://$&|;' > movies.m3u

今回は試しということで、.mpg と .wmv だけですが、.mp4 なんかも追加できそうです。ただ、これだと並び替えなんかはやってないので、実用性は低いですが。

そのへんは、ぼちぼち。... やること多いなぁ


追記(2009.02.28 20:55)

perlの部分の依存度を高くしてみた

$ find $HOME -type f -print |
>   perl -wnlaF'/' -e 'BEGIN{ print "#EXTM3U"; } /.+\.wmv$/.+\.mpg$/i and
>     print "#EXTINF:$F[-1]\nfile://$&";' > movies.m3u

また、追記すると思う

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090228

2009-02-09

[][][]xargsコマンドを使ってみた。 19:36 xargsコマンドを使ってみた。 - ishiducaの日記 を含むブックマーク はてなブックマーク - xargsコマンドを使ってみた。 - ishiducaの日記 xargsコマンドを使ってみた。 - ishiducaの日記 のブックマークコメント

「xargs:標準入力から渡されたファイル名などを引数としてみなして、指定のコマンドを実行する」らしいです。実際便利そうですね。

社員名簿(一覧表)のtsvファイルを個人別のファイルに分割するで作成したファイルから任意の条件を満たすファイルから氏名リストを作る。には xargs コマンドを使う。

例えば、住所に港区を含む社員のリストをつくるにはこうする。

$ perl -wnl -e '/住所\t東京都港区/ and print $ARGV and close ARGV;' * |
>   xargs perl -wnl -e '/名前\t(.+)/ and print $1 and close ARGV'

xargs コマンドに関しては

を参照しました。

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090209

2009-02-07

[][][][]findコマンドとPerlでファイルを探す 07:50 findコマンドとPerlでファイルを探す - ishiducaの日記 を含むブックマーク はてなブックマーク - findコマンドとPerlでファイルを探す - ishiducaの日記 findコマンドとPerlでファイルを探す - ishiducaの日記 のブックマークコメント

なんかが絡んで、僕的にホットなトピックスだったので、試してみた。

「sign」で始まるテキストファイルを探すワンライナー

$ find $HOME -type f -print |
> perl -wnlaF'/' -e
>      '-T and $F[-1] =~ /^sign\./ and print;'

ワンライナーとか言いつつ、改行とかしてますが ^ ^;

結果

/Users/xxx/Documents/xxx/sign.txt
/Users/xxx/Documents/oneliner/sign.pl

成功したっぽい

NaomiNaomi2012/02/23 16:17Your posntig really straightened me out. Thanks!

serruifpttserruifptt2012/02/25 22:473h7Mwn , [url=http://goccckwmhkoo.com/]goccckwmhkoo[/url], [link=http://zychuqeftgjb.com/]zychuqeftgjb[/link], http://rzifzezscexk.com/

twzgxoqfxltwzgxoqfxl2012/03/01 02:388z9liF <a href="http://wwjcldpaybfs.com/">wwjcldpaybfs</a>

xljcnbxljcnb2012/03/13 14:47hAz2RL , [url=http://bpplxmnblmbd.com/]bpplxmnblmbd[/url], [link=http://imhffbsccasz.com/]imhffbsccasz[/link], http://rpbnrzjpqysp.com/

トラックバック - http://perl.g.hatena.ne.jp/ishiduca/20090207