Perl（サンプルプログラム）
最終更新：
masasyou1990 2012年09月12日(水) 16:02:15履歴
PerlのTips【目次】
トップページ -> Perl -> サンプルプログラム
サンプルプログラム
２つのファイルを比較
トップページ -> Perl -> サンプルプログラム
サンプルプログラム 
２つのファイルを比較
２つのファイルを比較し、ファイル内容が同一であるかの結果を出力するプログラム。
サンプル
使用例(どちらも同じことをしている)
トップページ -> Perl -> その他
livedoor Wiki関連リンク
サンプル
#!/usr/bin/perl
# compare.pl
use File::Compare;
# compare関数はファイル内容が同一だった場合0を、同一でない場合1を、エラーの場合は-1を返します。
###########################################################
# ファイルの比較のサンプル
# 引数は0個．または２個
#
# 1)引数をとらないとき
# 以下で２つのファイル名を指定
$file1 = "a.txt";
$file2 = "b.txt";
# 2)引数を２個とるとき => コマンドで指定
# 引数1：比較したいファイル1
# 引数2：比較したいファイル2
###########################################################
#引数が2個のとき,引数で指定したファイル名を代入
if(@ARGV == 2){
$file1 = $ARGV[0];
$file2 = $ARGV[1];
}
$test = compare($file1,$file2);
print "file1:$file1\n";
print "file2:$file2\n";
print "compare(file1,file2):";
if($test == 0){
print "ファイル内容は同一です．\n";
}
if($test == 1){
print "ファイル内容が異なります．\n";
}
if($test == -1){
print "何らかのエラーです．(ファイルが存在しない等)\n";
}
使用例(どちらも同じことをしている)
$compare.pl
ファイル内容が異なります．
$compare.pl a.txt b.txt
ファイル内容が異なります．
トップページ -> Perl -> その他
livedoor Wiki関連リンク
このページへのコメント
cJ2hRm <a href="http://ajyjflxvaqhz.com/">ajyjflxvaqhz</a>, [url=http://cvafzeejutot.com/]cvafzeejutot[/url], [link=http://pogtnechlgop.com/]pogtnechlgop[/link], http://ybntkaogdctq.com/
11TnB0 <a href="http://hcsqovuipayo.com/">hcsqovuipayo</a>, [url=http://ambjqhdcqwxy.com/]ambjqhdcqwxy[/url], [link=http://udwkwoevyikr.com/]udwkwoevyikr[/link], http://odwpnaasetdc.com/