テキストファイルからの文字の切り出し？

質問

Perl初心者でほとほと困っております。

テキストファイル（例えば内容が"Hokkaido Sapporo")の中の最初の3文字めから8文字めまで切り出したい（”kkaido”）場合、どうやったらいいのでしょうか？

※２日間、徹夜ではまっております…

回答No.1

BLUEPIXY · ベストアンサー

$text="Hokkaido Sapporo";
$get3_8=substr $text,3-1,8-3+1; #３文字目から６文字取り出す

お礼

ありがとうございます（やったー！）。

無知を承知で質問致しますが、ファイルから入力する場合は（例えばperl -pe sample.pl < data.txt）はどのようにすれば良いのでしょうか？

恥ずかしい質問×２ですみません…

回答No.3

BLUEPIXY

>例えばperl -pe sample.pl < data.txt
とした場合、
（まず、-eオプションは続けてスクリプトを書くオプションなので、sample.plの様にスクリプトファイルを指定する場合には、必要ありません)
-pオプションで
スクリプト全体が
while(<>){
#ココ
} continue { print ; }
で囲まれたような感じになるので、
ファイルのそれぞれ１行のレコードが$_に読み込まれprintされるということを踏まえて
＃１での$textを$_に置き換えれば良いです。

ただ、ファイルの全てのレコードの３文字目から８文字目を切り出すのが目的なのかなとちょっと疑問ですが。

お礼

何度もありがとうございます。非常に参考になりました。
Perlは初めてですが、なんとなく見えてきました。

回答No.2

k_o_r_o_c_h_a_n

＞テキストファイル（例えば内容が"Hokkaido Sapporo")の中の最初の3文字めから8文字めまで切り出したい

?? = substr ( 対象文字列 , 開始位置 , バイト数 );
注意としては、開始位置は、0から数えた数。
perlの場合、カッコは省略可能なことが多いですが、わかりにくさを増やすだけなので、
書くことを心がけた方が良い。

＞ファイルから入力する場合は（例えばperl -pe sample.pl < data.txt）はどのようにすれば良いのでしょうか？

perl sample.pl < data.txt

で、sample.plスクリプトを実行し、標準入力として、data.txtを取り込みます。

お礼

ありがとうございます。

2日間はまりましたが、先があかるくなりました…。また宜しくお願い致します。