Perlゼミ

  1. Perl
  2. 標準関数
  3. here

getc関数 - ファイルから一文字ずつ読み込む

getc関数を使って1文字づつ読み込むこともできます。

my $c = getc $fh;

サンプル

以下は、getc関数とwhile文を使って、1文字読み込みを行うサンプルです。

use strict;
use warnings;

# 1文字読み込み
# 読み込みたいファイル名
my $file = shift;

print "1: 1文字ずつ読み込む。\n";
open(my $fh, "<", $file)
  or die "Cannot open $file: $!";

# 1文字ずつ読み込むにはgetc関数を使います。
while (defined (my $c = getc $fh)) {
  print $c;
}

close $fh;

Perlプログラミングちゃんねるのご紹介

Perlの書籍
  • 業務に役立つPerl

    ログ解析など日本語を含むテキスト処理の実践!
    この私、Perlゼミの作者が執筆しています。
    ご購入、口コミ歓迎。
  • Perlの書籍 »
自己紹介
木本裕紀

「今日も元気だ! Perlで元気!」

Perlプログラミングちゃんねる

Youtubeチャンネル登録、いいね、コメント歓迎

Twitter
フォロー、いいね、リツート、コメント歓迎

kimoto.yuki@gmail.com
応援メッセージ、質問、間違い報告歓迎

Perl総合研究所