ファイル名情報しょぼカレからコピペしてファイル名変更してました。
RDから取ったファイル名は xxxxx DD-MM.avi にしてるから。変更かけました。
しょぼカレから番組情報コピペ
http://192.168./@@@@@@cal.syoboi.jp/tid/903/time より
DATA 〜 DATA 間にはりつけ
(↓ renameコマンド吐くスクリプト)
#/bin/perl
$DATA = <<DATA;
WOWOW 2005-11-03(木) 24:00 30 1 あふれちゃって 恥ずかしい
新！ 2005-09-13 _
WOWOW 2005-11-10(木) 24:00 30 2 あたしの好みは 恥ずかしい
2005-09-13 _
WOWOW 2005-11-17(木) 24:00 30 3 幸せって 恥ずかしい
2005-09-13 _
WOWOW 2005-11-24(木) 24:00 30 4 バレちゃって 恥ずかしい
2005-09-13 _
WOWOW 2005-12-01(木) 24:00 30 5 家族そろって 恥ずかしい
2005-09-13 _
WOWOW 2005-12-08(木) 24:00 30 6 母さん元気で 恥ずかしい
2005-09-13 _
WOWOW 2005-12-15(木) 24:05↓5 30 7 追っかけられて 恥ずかしい
！ 2005-10-27 _
WOWOW 2005-12-22(木) 24:00 30 8 みつかっちゃって 恥ずかしい
12/29は放送休止
！ 2005-10-27 _
WOWOW 2006-01-05(木) 24:00 30 9 ふりかえると… 恥ずかしい
！ 2005-10-27 _
WOWOW 2006-01-12(木) 24:00 30 10 パパはとっても 恥ずかしい
1/19は放送休止
2005-11-28 _
WOWOW 2006-01-26(木) 24:00 30 11 夏だ！プールだ！ 恥ずかしい！
！ 2005-11-28 _
WOWOW 2006-02-02(木) 24:00 30 12 やっぱり兄キは 恥ずかしい
2/9は放送休止
2005-12-27 _
WOWOW 2006-02-16(木) 24:00 30 13 めざめちゃって 恥ずかしい
！ 2005-12-27 _
WOWOW 2006-02-23(木) 24:00 30 14 ふたりで朝まで 恥ずかしい
2005-12-27 _
WOWOW 2006-03-02(木) 24:00 30 15 エルダ登場！で 恥ずかしい
2005-12-27 _
WOWOW 2006-03-09(木) 24:00 30 16 エルダの恋バナは 恥ずかしい
2005-12-27 _
WOWOW 2006-03-16(木) 24:00 30 17 さらばエルダで 恥ずかしい
2005-12-27 _
WOWOW 2006-03-23(木) 24:00 30 18 兄キのヒミツは 恥ずかしい
2005-12-27 _
WOWOW 2006-03-30(木) 24:05↓5 30 19 ふたりのイブは 恥ずかしい
！ 2006-01-27 _
WOWOW 2006-04-06(木) 24:00 30 20 はじめての… 恥ずかしい
！ 2005-12-27 _
WOWOW 2006-04-13(木) 24:00 30 21 どうすればいいのか 恥ずかしい
2005-12-27 _
WOWOW 2006-04-20(木) 24:15↓15 30 22 迷い子みたいに恥ずかしい
！ 2006-03-11 _
WOWOW 2006-04-27(木) 24:00 30 23 サヨナラは 恥ずかしい
5/4は放送休止
！ 2006-03-27 _
WOWOW 2006-05-11(木) 24:15↓15 30 24 いつもふたりは 恥ずかしい
終！ 2006-03-27
DATA
$dircheck = '';
$renames = '';
@DATA = split(/\n/, $DATA);
foreach (@DATA)
{
$name = 'かりん %%.avi';
$newname = 'かりん %%.avi';
next if(/^$/);
(/(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(\S+)\s+(.+)$/);
next if($1 =~ /！/);
$date = $2;
$time = $3;
$num = $5;
$title = $6;
($y, $m, $d) = ($1, $2, $3) if($date =~ /(\d+)\-(\d\d)\-(\d\d)/); # mon-date
($hh, $mm) = ($1, $2) if($time =~ /(\d\d):(\d\d)/); # hhmm
$name =~ s#%%#sprintf("%02u-%02u", $m , $d + ($hh/24) )#e;
$newname =~ s#%%#sprintf("\#%02u %s", $num, $title)#e;
$escname = 'notexist ' . $name . '->' . $newname ; $escname =~ s/[\(\)\'\"]/x/g;
$renames .= qq|rename "$name" "$newname"\n| if($num);
$dircheck .= qq|if not exist "$name" (echo "$escname" >> lost.txt)\n| if($num);
}
print $dircheck;
print "\n; ---------------------------- \n";
print $renames;
print された結果を
windowsの方に cmd か telnet でログインして 貼り付け
$ perl a.pl if not exist "かりん 11-04.avi" (echo "notexist かりん 11-04.avi->かりん #01 あふれちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-11.avi" (echo "notexist かりん 11-11.avi->かりん #02 あたしの好みは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-18.avi" (echo "notexist かりん 11-18.avi->かりん #03 幸せって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 11-25.avi" (echo "notexist かりん 11-25.avi->かりん #04 バレちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-02.avi" (echo "notexist かりん 12-02.avi->かりん #05 家族そろって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-09.avi" (echo "notexist かりん 12-09.avi->かりん #06 母さん元気で 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-16.avi" (echo "notexist かりん 12-16.avi->かりん #07 追っかけられて 恥ずかしい.avi" >> lost.txt) if not exist "かりん 12-23.avi" (echo "notexist かりん 12-23.avi->かりん #08 みつかっちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-06.avi" (echo "notexist かりん 01-06.avi->かりん #09 ふりかえると… 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-13.avi" (echo "notexist かりん 01-13.avi->かりん #10 パパはとっても 恥ずかしい.avi" >> lost.txt) if not exist "かりん 01-27.avi" (echo "notexist かりん 01-27.avi->かりん #11 夏だ！プールだ！ 恥ずかしい！.avi" >> lost.txt) if not exist "かりん 02-03.avi" (echo "notexist かりん 02-03.avi->かりん #12 やっぱり兄キは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 02-17.avi" (echo "notexist かりん 02-17.avi->かりん #13 めざめちゃって 恥ずかしい.avi" >> lost.txt) if not exist "かりん 02-24.avi" (echo "notexist かりん 02-24.avi->かりん #14 ふたりで朝まで 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-03.avi" (echo "notexist かりん 03-03.avi->かりん #15 エルダ登場！で 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-10.avi" (echo "notexist かりん 03-10.avi->かりん #16 エルダの恋バナは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-17.avi" (echo "notexist かりん 03-17.avi->かりん #17 さらばエルダで 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-24.avi" (echo "notexist かりん 03-24.avi->かりん #18 兄キのヒミツは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 03-31.avi" (echo "notexist かりん 03-31.avi->かりん #19 ふたりのイブは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-07.avi" (echo "notexist かりん 04-07.avi->かりん #20 はじめての… 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-14.avi" (echo "notexist かりん 04-14.avi->かりん #21 どうすればいいのか 恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-21.avi" (echo "notexist かりん 04-21.avi->かりん #22 迷い子みたいに恥ずかしい.avi" >> lost.txt) if not exist "かりん 04-28.avi" (echo "notexist かりん 04-28.avi->かりん #23 サヨナラは 恥ずかしい.avi" >> lost.txt) if not exist "かりん 05-12.avi" (echo "notexist かりん 05-12.avi->かりん #24 いつもふたりは 恥ずかしい.avi" >> lost.txt) ; ---------------------------- rename "かりん 11-04.avi" "かりん #01 あふれちゃって 恥ずかしい.avi" rename "かりん 11-11.avi" "かりん #02 あたしの好みは 恥ずかしい.avi" rename "かりん 11-18.avi" "かりん #03 幸せって 恥ずかしい.avi" rename "かりん 11-25.avi" "かりん #04 バレちゃって 恥ずかしい.avi" rename "かりん 12-02.avi" "かりん #05 家族そろって 恥ずかしい.avi" rename "かりん 12-09.avi" "かりん #06 母さん元気で 恥ずかしい.avi" rename "かりん 12-16.avi" "かりん #07 追っかけられて 恥ずかしい.avi" rename "かりん 12-23.avi" "かりん #08 みつかっちゃって 恥ずかしい.avi" rename "かりん 01-06.avi" "かりん #09 ふりかえると… 恥ずかしい.avi" rename "かりん 01-13.avi" "かりん #10 パパはとっても 恥ずかしい.avi" rename "かりん 01-27.avi" "かりん #11 夏だ！プールだ！ 恥ずかしい！.avi" rename "かりん 02-03.avi" "かりん #12 やっぱり兄キは 恥ずかしい.avi" rename "かりん 02-17.avi" "かりん #13 めざめちゃって 恥ずかしい.avi" rename "かりん 02-24.avi" "かりん #14 ふたりで朝まで 恥ずかしい.avi" rename "かりん 03-03.avi" "かりん #15 エルダ登場！で 恥ずかしい.avi" rename "かりん 03-10.avi" "かりん #16 エルダの恋バナは 恥ずかしい.avi" rename "かりん 03-17.avi" "かりん #17 さらばエルダで 恥ずかしい.avi" rename "かりん 03-24.avi" "かりん #18 兄キのヒミツは 恥ずかしい.avi" rename "かりん 03-31.avi" "かりん #19 ふたりのイブは 恥ずかしい.avi" rename "かりん 04-07.avi" "かりん #20 はじめての… 恥ずかしい.avi" rename "かりん 04-14.avi" "かりん #21 どうすればいいのか 恥ずかしい.avi" rename "かりん 04-21.avi" "かりん #22 迷い子みたいに恥ずかしい.avi" rename "かりん 04-28.avi" "かりん #23 サヨナラは 恥ずかしい.avi" rename "かりん 05-12.avi" "かりん #24 いつもふたりは 恥ずかしい.avi"
変更ウマー。
変更してたら、
\\192.168.2.0\data\data\1\半分の月がのぼる空
フォルダなんだが、
が見つかった。(ぉ
おれ 手抜き過ぎw
ばぐだクマー
$name =~ s#%%#sprintf("%02u-%02u", $m , $d + ($hh/24) )#e;
24時を超えたら日付調整してるのだが、
rename "ARIA(2) 10-32.avi" "ヤマトナデシコ七変化 #04 スナコ、およびです.avi"
問題。
まぁなんだ、こういうの修正めんどくさいから手作業でw
「ダウンタウンのガキの使いやあらへんで!! 絶対に笑ってはいけない警察24時!!」
西川史子やべえw
AD (D) (P)って ちょwww
めちゃめちゃやりよんなw
漫画の先見性
鉄火とかもそーだったけど
http://comic6.2ch.net/test/read.cgi/csaloon/1160405221/
http://news4vip.livedoor.biz/archives/50821533.html
10年以上前から、グルグルはこのクォリティ すげぇな。
183 マロン名無しさん 投稿日：2006/10/14(土) 14:08:48 ID:???
狂ったセリフばかり集めてコラージュしたらどうか
と思ったが上手くいかなかった成功すれば爆笑物だと思うが、だれかやらない？
ワッハッハッ よく来たな勇者よ！
オレ様の強力な水中バレエを見て思いきり笑ったあとは
魚も泳ぐ戦国風呂を味わうがよい！！
このオレ様がお前らのハナミズを飲みつくしてくれるわ！
(メモ)
| 第0層 | 土建層 | コンクリ 木材 | 内線電話 |
| 第1層 | 物理層 | 線とかHUBとか | |
| 第2層 | データリンク層 | EtherNetII 802.3 とか100Baseなんとか PPP | PPPoE PPTP |
| 第3層 | ネットワーク層 | ARP IP | IPSec |
| 第4層 | トランスポート層 | TCP UDP | |
| 第5層 | セッション層 | TCP | SSL VPN? |
| 第6層 | プレゼンテーション層 | FTP-Data HTTP-Get* SSL_Wrapped* | |
| 第7層 | アプリケーション層 | FTP HTTP SSH | HTTP VPN SSH VPN |
| 第8層 | ユーザ層 | ||
| 第9層 | 財務層 | ||
| 第10層 | 政治層 |
なんか微妙な表。
第10層に関わってくると、おれこんなことのために こんなのやってるのかな ってうつになる。
ルーターにSSH設定してました。
TTMでわざわざtelnetに切り替えて接続するのめんどくさかったので。
# login user USERNAME PASSWORD ... (1)
# sshd host key generate ... (2)
# sshd service on ... (3)(1) 名前ありユーザの登録。
SSHでは無名ユーザでの接続はできません。必ず名前ありユーザの登録を行ってください。
(2) SSHサーバのホスト鍵の生成DSAまたはRSAの公開鍵および、秘密鍵のペアを生成します。
SSHサーバ機能が有効になっていても、ホスト鍵を生成しない限り接続は許可されません。鍵の生成には、数十秒ほど時間がかかります。
(3) SSHサーバ機能を有効にする
# login user USERNAME PASSWORD # user attribute USERNAME connection=serial,telnet,ssh host=192.168.1.1-192.168.1.254,192.168.2.1-192.168.2.254 # sshd host 192.168.1.1-192.168.1.254 192.168.2.1-192.168.2.254 # sshd host key generate Generating public/private dsa key pair ... |** # sshd service on
dropbeerdropbearのおかげで いろいろらくだねぇ
