68user's page 掲示板

Prev< No. 3907〜3912> Next  [最新発言に戻る] [過去ログ一覧]
No. 3907 # さいさん 2004/08/03 (火) 21:59:23
HP-UX11.00でPerlでシェルスクリプトを書いています。
Perl4なのですが、Perlでの置換について教えてください。

不等号で囲まれた文字列「<aaa.bbb@test.co.jp>」から
不等号だけを取り除いた文字列を取り出したいのですが
上手くいきません。

--------------
#!/usr/contrib/Q4/bin/perl
#

$addr="\<aaa.bbb\@test.co.jp\>";
$addr=~ s/<//g;
$addr=~ s/>//g;
print "$addr\n";
exit 0;
----------
この場合だと、置換処理を2回行わなければなりません。
1回で終わらせたいのですがごうすればよいでしょうか。

--------------
#!/usr/contrib/Q4/bin/perl
#

$addr="\<aaa.bbb\@test.co.jp\>";
$To=~ s/([^<>]?)+?/$1/g;
とか
$addr=~ s/^<([^<>]?)+?/$1/g;

exit 0;
----------

No. 3908 # 68user 2004/08/03 (火) 22:15:05
>>3907 さいさん
> HP-UX11.00でPerlでシェルスクリプトを書いています。
Perl で書いたスクリプトは Perl スクリプトと呼びます。sh や
csh などのシェルが解釈するスクリプトがシェルスクリプトです。

> 1回で終わらせたいのですがごうすればよいでしょうか。
perl4 で動くかどうかはわかりませんが、perl5 では以下の
どれを使ってもうまくいきました。
    $addr =~ s/(^<|>$)//g;
    $addr =~ s/[<>]//g;
    $addr =~ s/^<(.*)>$/$1/;
    $addr =~ s/<(.*)>/$1/;

No. 3909 # たむたむ98 2004/08/03 (火) 23:04:51
いつもこのHPにお世話になっている者です。

この6月に会社の社内ネット担当になり、NW1年生になりました。
今はコマンドプロンプトやらTelNetをいじりながら勉強中です。
今日も自宅に戻ってから、
Windows98環境のコマンドプロンプトでパチョパチョ叩いて勉強していました。
画面がスクロールできなく小さいなと思い、
ツールバーの画面最大化ボタンを押してみたら、大変なことに!!

最大化の画面からツールバーが表示できる術を知らず、画面が戻らなくなりました。
EXITで一度ログアウトしてから再立上してみたのですが、
最大画面のままで、、

元の画面に戻すコマンドや、又はコマンド指示以外に元に戻す方法を教えて下さい。
どうぞ宜しくお願い致します。

No. 3910 # 68user 2004/08/03 (火) 23:07:49
Windows には詳しくないので「コマンドプロンプト 最大化 戻す」で
検索したところ、
http://forum.nifty.com/fpcu/top/doslog01/0896.htm
> 通常、Alt+Enter(Altキーを押しながらEnterキーを押す)で戻ります。
だそうです。試してみてください。

No. 3911 # sorame 2004/08/04 (水) 00:56:13
alt+enterはコマンドプロンプトというよりも
最大化した状態のアプリケーションを戻すようなイメージで使えます。

No. 3912 # さいさん 2004/08/04 (水) 09:23:47
>>3908 68user
>> 1回で終わらせたいのですがごうすればよいでしょうか。
>perl4 で動くかどうかはわかりませんが、perl5 では以下の
>どれを使ってもうまくいきました。
> $addr =~ s/(^<|>$)//g;
> $addr =~ s/[<>]//g;
> $addr =~ s/^<(.*)>$/$1/;
> $addr =~ s/<(.*)>/$1/;
Perl4でも上記のどれを使っても上手くいきました。

Prev< No. 3907〜3912> Next  [最新発言に戻る] [過去ログ一覧]