標準入力から読んで、標準出力に書く (行番号付加) lesson006.vbs Dim i : i = 0 Do Until WScript.StdIn.AtEndOfStream i = i + 1 WScript.StdOut.WriteLine Right("000000" & FormatNumber(i, 0, 0, 0), 6) & " | " & WScript.StdIn.ReadLine Loop実行結果…

標準入力から読んで、標準出力に書く (行番号付加) lesson006.js var i = 0; var s; do { i++; s = "000000" + i.toString(); s = s.substr(s.length - 6, 6); WScript.StdOut.WriteLine(s + " | " + WScript.StdIn.ReadLine()); } while (! WScript.StdIn.A…

標準入力から読んで、標準出力に書く (行番号付加) lesson006.rb STDIN.each_with_index do |line, i| puts format("%.6d | %s", i+1, line) end実行結果 C:\>ruby c:\study\ruby\chapter003\lesson006.rb ruby\chapter001\lesson 003.rb 000001 | var1 = "H…

標準入力から読んで、標準出力に書く (行番号付加) lesson006.php 実行結果 C:\>php c:\study\php\chapter003\lesson006.php php\chapter001\lesson00 4.php 000001 |

標準入力から読んで、標準出力に書く (行番号付加) lesson006.pl $i = 0; printf "%.6d | %s", ++$i, $_ while();実行結果 C:\>perl c:\study\perl\chapter003\lesson006.pl perl\chapter001\lesson 002.pl 000001 | $var1 = "Hello"; 000002 | $var2 = "Wor…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.vbs Dim objFs : Set objFs = CreateObject("Scripting.FileSystemObject") Dim objTextIn : Set objTextIn = objFs.OpenTextFile(WScript.Arguments(1), 1…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.js var objFs = WScript.CreateObject("Scripting.FileSystemObject"); var objTextIn = objFs.OpenTextFile(WScript.Arguments(1), 1 ); var objTextOut =…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.rb dummy, source, target = ARGVopen(source, 'r') do |s| open(target, 'a') do |t| s.each do |line| t.puts line end end end実行結果 C:\>ruby c:\stu…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.php 実行結果 C:\>php c:\study\php\chapter003\lesson005.php dummy c:\study\php\chapter001\less on004…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く (Append) lesson005.pl ($dummy, $IN, $OUT) = @ARGV;open READ, "< $IN"; open APPEND, ">> $OUT";print APPEND while(<READ>);close APPEND; close READ;実行結果 C:\>perl c:\stud</read>…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.vbs Dim objFs : Set objFs = CreateObject("Scripting.FileSystemObject") Dim objTextIn : Set objTextIn = objFs.OpenTextFile(WScript.Arguments(1), 1 ) Dim ob…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.js var objFs = WScript.CreateObject("Scripting.FileSystemObject"); var objTextIn = objFs.OpenTextFile(WScript.Arguments(1), 1 ); var objTextOut = objFs.Op…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.rb dummy, source, target = ARGVopen(source, 'r') do |s| open(target, 'w') do |t| s.each do |line| t.puts line end end end実行結果 C:\>ruby c:\study\ruby\c…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.php 実行結果 C:\>php c:\study\php\chapter003\lesson004.php dummy c:\study\php\chapter001\less on004.php c:\s…

第二引数に指定されたファイルから読んで、第三引数に指定されたファイルに書く lesson004.pl ($dummy, $IN, $OUT) = @ARGV;open READ, "< $IN"; open WRITE, "> $OUT";print WRITE while(<READ>);close WRITE; close READ;実行結果 C:\>perl c:\study\perl\chapte</read>…

第一引数に指定されたファイルから読んで、標準出力に書く lesson003.vbs Dim objFs : Set objFs = CreateObject("Scripting.FileSystemObject") Dim objText : Set objText = objFs.OpenTextFile(WScript.Arguments(0))Do Until objText.AtEndOfStream WScr…

第一引数に指定されたファイルから読んで、標準出力に書く lesson003.js var objFs = WScript.CreateObject("Scripting.FileSystemObject"); var objText = objFs.OpenTextFile(WScript.Arguments(0));do { WScript.StdOut.WriteLine(objText.ReadLine()); }…

第一引数に指定されたファイルから読んで、標準出力に書く lesson003.rb ARGF.each do |line| puts line end実行結果 C:\>ruby c:\study\ruby\chapter003\lesson003.rb c:\study\ruby\chapter001\lesson00 3.rb var1 = "Hello"; var2 = "World"; print var1,…

第一引数に指定されたファイルから読んで、標準出力に書く lesson003.php 実行結果 C:\>php c:\study\php\chapter003\lesson003.php c:\study\php\chapter001\lesson004. php

第一引数に指定されたファイルから読んで、標準出力に書く lesson003.pl print while(<>);実行結果 C:\>perl c:\study\perl\chapter003\lesson003.pl c:\study\perl\chapter001\lesson00 2.pl $var1 = "Hello"; $var2 = "World"; print $var1, ", ", $var2, …

標準入力から読んで、標準出力に書く lesson002.vbs Do Until WScript.StdIn.AtEndOfStream WScript.StdOut.WriteLine WScript.StdIn.ReadLine Loop実行結果 C:\>cscript c:\study\vbscript\chapter003\lesson002.vbs vbscript\chapt er001\lesson002.vbs //…