< > = grep(/< >/, = ("AAA", "AAB", = foreach $Temp print "$Temp\n"; < > = sort = ("b"

Size: px

Start display at page:

Download "< > = grep(/< >/, = ("AAA", "AAB", = foreach $Temp print "$Temp\n"; < > = sort = ("b""

さみらうなだ
5 years ago
Views:

1 Perl 1 Unix qx{< > open(test,">test.txt"); = qx{ls; #ls print # close(test); $< >{< > = [< = ("a","aa","aaa"); $Hush{"AAA" = [@List]; foreach $Temp (@{$Test{"AAA"){# print "$Temp\n"; print $Test{"AAA"[0],"\n";# < > =~ s/< >/< >)/g $String = "AABBAABB"; $String =~ s/bb/cc/g;#bb CC print "$String\n"; 1 Programing..

2 < > = grep(/< >/, = ("AAA", "AAB", = foreach $Temp (@List2){ print "$Temp\n"; < > = sort = ("b", "d", "e", "a", "c", = # print "@List2\n"; < > = sort { $a <=> $b = (5, 3, 1, 2, 4, = sort { $a <=> # print "@List2\n"; 2 < > = sort >] >] = ([0, c], [1, b], [2, a]); 2 Programing..

3 @List2 = sort cmp #2 for($i=0 ; $i<3 ; $i++){ for($j=0 ; $j<2 ; $j++){ print "$List2[$i][$j]\t"; print "\n"; 2 < > = sort >] >] = ([0, 2], [1, 3], [2, = sort <=> #2 for($i=0 ; $i<3 ; $i++){ for($j=0 ; $j<2 ; $j++){ print "$List2[$i][$j]\t"; print "\n"; scalar(@< = ("AAA", "BBB", "CCC"); print scalar(@list),"\n"; # &< >::< >(< >) 3 Programing..

4 require "Rand_Package.pl"; &TestPackage::TestSubroutin;# package TestPackage;# sub TestSubroutin{# print "Hello, world.\n"; return 1; $Euc = encode("< >", decode("<>", $Sjis)); use Encode; $Euc = encode("euc-jp", decode("shiftjis", $Sjis));#UTF-8 utf-8 UTF-16 UTF-16BE $Encode = guess_encoding(< >, qw/euc-jp shiftjis 7bit-jis utf8/); use Encode::Guess; $Encode = guess_encoding(" ", qw/euc-jp shiftjis 7bit-jis utf8/); print $Encode->name,"\n"; Mac (UTF-8-MAC) $String = Encode::decode( utf-8-mac, $String); 4 Programing..

5 use utf8; use Encode::UTF8Mac; open(test,">.txt");# close(test); opendir(inputdirectory,"./"); while($filename = readdir(inputdirectory)){# $FileName = Encode::decode( utf-8-mac, $FileName);# $FileName =~ s/ / /g;# $FileName = Encode::encode( utf-8-mac, $FileName);# print = split(/< >/, $String); $String = = split(/-/, $String); print "@List\n"; $String1 = $String2. $String3; $String2 = "a"; $String3 = "b"; $String1 = $String2. $String3; print "$String1\n"; 5 Programing..

6 length(decode( utf-8, $String); use Encode; $String = " "; $Length = length(decode( utf-8, $String)); print "$Length\n"; substr($string, < >, < >); $String = "abcdef"; $String = substr($string, 2, 3); print "$String\n"; copy(< >, < >); use File::Copy; open(test,">test.txt");#test.txt close(test); copy("test.txt", "test2.txt"); substr(< >, < >); use File::Copy::Recursive qw(rcopy); 6 Programing..

7 -MYPEDIA Programingmkdir("test", 0777);# rcopy("test", "test2"); rename(< >, < >); open(test,">test.txt");#test.txt close(test); rename("test.txt", "test2.txt"); $ARGV[< >] localtime ($Sec, $Min, $Hour, $Day, $Month, $Year) = localtime; print $Year," ", $Month + 1," $Day $Hour $Min $Sec \n"; while($string = readdir(< >)){ opendir(inputdirectory,"./"); while($filename = readdir(inputdirectory)){ print "$FileName\n"; 7 Programing..

8 find(\&< >, "< >") use File::Find; find(\&process, "./"); sub process{ print "$File::Find::name\n";# ($_ ) -e "< >" open(test,">test.txt");# if(-e "test.txt"){ print "exist\n"; close(test) ( = (< >) x < = (0) x 5; print "@List\n"; 2 ( ) for(1..< >){push(< >,[(< >) x < >]); for(1..3){push(@list2,[(0) x 5]); 8 Programing..

9 -MYPEDIA Programingprint $Vector = vpdl(< = (1,2); $Vector = vpdl(@list); print "$Vector\n"; index(< >,< = (1,2); $Vector = vpdl(@list); $Scalar = index($vector,0); print "$Scalar\n"; $Matrix = mpdl(<2 = ([1,2],[3,4]); $Matrix = mpdl(@list); print "$Matrix\n"; 9 Programing..

10 identity(< >) use PDL::MatrixOps; $Matrix = identity(3); print "$Matrix\n"; transpose(< >) $Matrix = mpdl [[1,0],[1,1]]; $Matrix2 = transpose($matrix); print "$Matrix2\n"; index2d(< >,< -1>,< -1>) $Matrix = mpdl [[1,0],[1,1]]; $Scalar = index2d($matrix,0,1); print "$Scalar\n"; 10 Programing..

11 < >->trace $Matrix = mpdl [[1,0],[1,1]]; $Scalar = $Matrix->trace; print "$Scalar\n"; inv(< >) use PDL::MatrixOps; $Matrix = mpdl [[1,0],[1,1]]; $Matrix2 = inv($matrix); print "$Matrix2\n"; det(< >) use PDL::MatrixOps; $Matrix = mpdl [[1,0],[1,1]]; $Scalar = det($matrix); print "$Scalar\n"; 11 Programing..

12 eigens_sym < > use PDL::MatrixOps; $Matrix = mpdl [[1,0],[1,1]]; ($Eigenvector, $Eigenvalue) = eigens_sym $Matrix; print "Eigenvectors are $Eigenvector\n"; print "Eigenvalues are $Eigenvalue\n"; last for(1..10){ print "$_\n"; if($_ == 5){ last 2 last < > OUT:for($i=0 ; $i<10 ; $i++){ for($j=0 ; $j<10 ; $j++){ print "$i-$j\n"; if($i == 5 && $j == 5){ last OUT 12 Programing..

13 2 1 perl -e < > perl < 1 > < 2 >... < n > [ctrl + D] perl < > 13 Programing..

( ) Shift JIS ( ) ASCII ASCII ( ) 8bit = 1 Byte JIS(Japan Industrial Standard) X 0201 (X ) 2 Byte JIS ISO-2022-JP, Shift JIS, EUC 1 Byte 2 By

( ) Shift JIS ( ) ASCII ASCII ( ) 8bit = 1 Byte JIS(Japan Industrial Standard) X 0201 (X ) 2 Byte JIS ISO-2022-JP, Shift JIS, EUC 1 Byte 2 By 23 3 ( ( (binary file) UNIX CUI 3.1 = + 2 bit ) ( 3.1) bit bit 1 Byte=8 bit 1 Byte ASCII, JIS X 0201 ASCII(American Standard Code for Information Interchange) 7bit (;) (:) ( ) (") ) 7bit ( ) 24 3 3.1 (