Home
Overview Latest Changes
Page History

行末改行の削除

  1. Perl

Perl

  • Amazon
  • EPSファイル作成
  • ApacheErrorLogFormatter
  • AutoHashedFuncs
  • CGI.pm
  • compareXML
  • CPAN
  • createUniqKeyList
  • DBIx-Custom
  • DBIx-NamedParams
  • decodeQuotedPrintable
  • EscapeSlash
  • GD
  • getDiskUsage
  • getHostName
  • GMTtoLocalTime
  • GoogleMapAPI
  • HostToIP
  • HttpHeader
  • HTTPアクセス
  • initConsole
  • IPアドレス範囲をマスク表現に変換
  • ListDownloader
  • MailForm
  • makeCodeHighlightKeyword
  • MatchList
  • MSSQL_ImpExp
  • MySQL-BIT
  • NetWatcher
  • nicoget
  • Object-Simple
  • packBit
  • Perl-Tidy
  • readXSV
  • SHA1
  • SortUnicode
  • updateEarth
  • W03_FOMA
  • WhoisGW
  • Windows_DLL_Call
  • XML-Simple
  • XML-XPath
  • YAML
  • オブジェクト指向プログラミング
  • キーワード置換
  • ディレクトリの再帰処理
  • ファイルの一括処理
  • ファイル名正規化
  • 全角から半角へ変換
  • 参照
  • 多次元配列
  • 文字コード
  • 日経ITpro
  • 曜日の計算(Zellerの公式)
  • 未定義コード置換
  • 特殊文字のエスケープ
  • 環境変数
  • 自動フラッシュ(バッファリング)の制御
  • 行末改行の削除

Table of Contents
  • 概要
  • ソースコード

概要

行末改行の削除

  • ファイルを読み込み、行末改行を一括削除する。
  • 「CRLF」「LF」のどちらでも対応できるようにする。

ソースコード

use strict;
use utf8;

my $fin = "input.txt";

my @file;

open( IN, "<:utf8", $fin ) || die( "can't open '" . $fin . "'.\n" );
@file = <IN>;
close( IN );

$file[ 0 ] =~ /(\s+)$/;
$/ = $1;
chomp( @file );

# 実際の処理

# EOF

Home

When was this page last modified?