#!/usr/bin/ruby
require "cgi"
require "mysql"
no = 9
sql = "select id, pass ,comment from pass "
m = Mysql.new('localhost','user_name','password','database_name')
res = m.query(sql)
print "Content-type: text/html\n\n"
print <<EOF
<html>
<body>
Gaitou Kensuu #{res.num_rows} Ken<br>
EOF
i = 0
no_a = [0]
name_a = [0]
res.each do |a|
no_a[i] = a[0]
name_a[i] = a[1]
puts a[0]+" =>"+a[1]+"<br>"
i += 1
end
print <<EOF
</body>
</html>
EOF
m.close
<?php
function showLines($f){
$lines = @file($f) or exit('*can not read file');
for($i = 0; $i < count($lines); $i++)
echo ($i+1) . ": " . $lines[$i];
}
echo "ファイル名を入力input file name:";
$a = trim(fgets(STDIN));
showLines($a);
?>
<?phpecho "input file name:";$a = trim(fgets(STDIN));readfile($a);?>
<?php
function showInfo($path){
echo "Path: " . realpath($path) . "\n";
echo "Type: " . filetype($path) . "\nSize: " . filesize($path) . "\n";
echo "Modified: " . date('Y-m-d H:i:s',filemtime($path));
echo "\nAccessed: " .date('Y-m-d H:i:s', fileatime($path));
}
echo "input file name:";
$a = trim(fgets(STDIN));
showInfo($a);
?>
<?php
echo "input text:";
$a = trim(fgets(STDIN));
saveText($a);
echo "\n";
readfile('save.txt');
function saveText($str){
$f = @fopen('save.txt','ab') or exit('fail to access to file.');
fputs($f,$str . "\n");
fclose($f);
}
?>
<?php /* 乱数を得るには */ echo "整数を入力："; $a = trim(fgets(STDIN)); for($i = 0;$i < 100;$i++) echo rand(0,$a) . " "; ?>
------------------------------------------------------------------------
その他のPHPの技はhttp://chaos-fractal.blogspot.jp/2011/12/php.html
require 'rubygems'
require 'spreadsheet'
xls = Spreadsheet.open('tests.xls', 'rb') #Excelファイルの読み込み
sheet = xls.worksheet(0) #0番目つまり1番始めのsheetを読み込む
#読み込みの開始が'０'から始まる。
print sheet[0,1] #実際のExcelでは、1行目の2列目の値を読み込み
print "\n"
#行単位で読み込む事も出来ます。
row = sheet.row(2) #3行目のデータを読み込み
print row[2] #3行目の3列目のデータを読み込み
print "\n"
require 'rubygems'
require 'parseexcel'
#Open the excel file passed in from the commandline
workbook = Spreadsheet::ParseExcel.parse(ARGV[0])
#Get the first worksheet
worksheet = workbook.worksheet(0)
#cycle over every row
j=0
worksheet.each { |row|
# j=0
i=0
if row != nil
#cycle over each cell in this row if it's not an empty row
row.each { |cell|
if cell != nil
#Get the contents of the cell as a string
#contents = cell.to_s('latin1')
contents = cell.to_s('utf-8')
puts "Row: #{j} Cell: #{i}> #{contents}"
end
i = i+1
}
end
j = j+1
}
$KCODE = 'utf-8'
require 'rubygems'
require 'spreadsheet'
Spreadsheet.client_encoding = 'UTF-8'
workbook = Spreadsheet::Workbook.new
worksheet = workbook.create_worksheet(:name => 'test1')
# worksheet[行番号,列番号] で書き込める
worksheet[0, 0] = "hello"
# 行を纏めて書き込むには，worksheet.row(行番号).replaceにArrayを叩き込む
worksheet.row(1).replace ["Matz", "Guido", "Larry"]
# セル内改行もできます
worksheet[2, 0] = "日本語\nです"
workbook.write('tests.xls')
require 'rubygems'
require 'axlsx'
#// A Simple Workbook
p = Axlsx::Package.new
p.workbook.add_worksheet do |sheet|
sheet.add_row ["First", "Second", "Third"]
sheet.add_row [1, 2, 3]
end
p.serialize("example1.xlsx")
require 'rubygems'
require 'axlsx'
p = Axlsx::Package.new
wb = p.workbook
black_cell = wb.styles.add_style :bg_color => "FF000000", :fg_color => "FFFFFFFF", :sz=>14, :alignment => { :horizontal=> :center }
blue_cell = wb.styles.add_style :bg_color => "FF0000FF", :fg_color => "FFFFFFFF", :sz=>14, :alignment => { :horizontal=> :center }
wb.add_worksheet do |sheet|
sheet.add_row ["Text Autowidth", "Second", "Third"], :style => [black_cell, blue_cell, black_cell]
sheet.add_row [1, 2, 3], :style => Axlsx::STYLE_THIN_BORDER
end
p.serialize("example4.xlsx")
$filename = "data2.txt";
if( ! open FH , $filename ){
print $filename . " open error\n";
}
$filename = "./data2.dat"; open( FH , "$filename" ) || die "Error: $filename $!\n";
my @hairetu;
my $i = 0;
open(IN,"/home/zzz.txt");
while( my $Meigara = <IN> )
{
chomp($Meigara);
print $Meigara . "\n";
$hairetu[$i] = $Meigara;
$i = $i + 1
}
print @hairetu . "\n";
print $#hairetu . "\n";
$length = @hairetu;
# print $length;
for( $i=0 ; $i<@hairetu ; $i++ )
{
print $hairetu[$i] . "\n";
}
$FH = "/home/zzz.txt";
open FH;
@list = <FH>;
foreach $data_line( @list ){
print $data_line;
}
$datafile="/home/zzz.txt";
open(FH, $datafile);
@list = <FH>;
# 1行ごとに出力
foreach $data_line( @list ) {
print $data_line;
}