UNIX超初心者専用スレッド Part.2

レス数が950を超えています。1000を超えると表示できなくなるよ。

[358:名無しさん＠お腹いっぱい。 (02/05/04 23:44)]
>>357
だね。
foreach(<*.txt>) {
　　$new_fname = 漢字変換($_);
　　rename($_,$new_fname);
}
みたいな感じで。

[359:名無しさん＠お腹いっぱい。 (02/05/05 00:02)]
>>358
うーむ…さっぱりわかりません。
この場合

漢字変換のところに Jcode::utf8($_) としたら
そのディレクトリの*.txtを全部UTF-8にしてくれる？

という感じなのでしょうか…
やってみよっと。

[360:358 (02/05/05 00:09)]
>>359
そだよーん。
(Jcode.pm使ったことなかったので、漢字変換()の部分を何て書くのか
　わからなかったのよ）

[361:名無しさん＠お腹いっぱい。 (02/05/05 00:23)]
んんん

#! /usr/bin/perl
use Jcode;
foreach(<*.txt>) {
　　$new_fname = Jcode::utf8($_);
　　rename($_,$new_fname);
}

として、2utf.plで保存
# chmod 755 ./2utf.pl後に実行すると

Unrecognized character \xA1 at ./euc2utf.pl line 4.

となります。？？？？書き方がちがうのかなぁ…
眠くなってきた…

[362:360 (02/05/05 00:26)]
>>361
全角スペースが入ってるので、半角に直してね。

[363:名無しさん＠お腹いっぱい。 (02/05/05 00:33)]
>>362
なるほど！半角に直したらイケタ！と思ったら…

Can't use string ("テスト.txt") as an ARRAY ref while "strict refs" in use at /u
sr/lib/perl5/site_perl/5.6.1/i386-linux-thread-multi/Jcode.pm line 496.

ちなみに
Jcode.pm は

494 sub utf8{
495 load_module("Jcode::Unicode");
496 euc_utf8(${$_[0]->[0]});
497 }

となってて…
何か足りない！？

[364:名無しさん＠お腹いっぱい。 (02/05/05 00:37)]
>>363
perl -MJcode -i.bak -pe 'Jcode->new(\$_)->euc;' *.txt
という手も。

[365:名無しさん＠お腹いっぱい。 (02/05/05 00:37)]
SolarisでSambaをインストールして、
swatをブラウザから起動しようとしたのですが、
execv /usr/local/samba/swat: Permission denied
と表示され、起動できません。

Solaris教えてスレッドでは
/usr/local/samba/swatを実行すると
cannot executeと表示されるのが原因ということでした。

わからなければ初心者スレへGO!と言われたのでカキコしました。
よろしくお願いします。

[366:364 (02/05/05 00:40)]
ごめん、いつもの癖でEUCにしてしまった。
Jcode->new(\$_)->utf8
ですな。

[367:364 (02/05/05 01:02)]
って、よく読んでみたらファイルの中身じゃなくてファイ
ル名だったのね・・・。ボケてるなあ。

今いるディレクトリ以下のファイルの名前をサブフォルダ
も含めてUTF8にするんだったら
find . -type f | perl -MJcode -ne 'chomp;$oldname=$_;Jcode->new(\$_)->utf8;rename($oldname,$_)'
こんな感じでしょうか。

次10 前10 最新10

read.cgi ver5.26+ (01/10/21-)