くだすれPerl（超初心者用）2

くだすれPerl（超初心者用）2 at PHP

292:nobodyさん
08/06/16 16:00:58
>>290

失礼。他のスレッドへの返答でした。

ｽﾚﾘﾝｸ(tech板:519番) への回答

# 変数が半角スペースで始まっていれば、半角スペースを先頭一個だけ消去
if($example =~ /^ /){ $example =~ s/ //; }
# 変数が全角スペースで始まっていれば、全角スペースを先頭から一個だけ消去
elsif($example =~ /^　/){ $example =~ s/　//; }

拙いですがどうですか？

次ページ

続きを表示

1を表示