Perl 1 Unix qx{< > open(test,">test.txt"); # @resalt = qx{ls; #ls print TEST @resalt; # close(test); $< >{< > = [< >] @List = ("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..
< > = grep(/< >/, <>) @List = ("AAA", "AAB", "BBB"); @List2 = grep(/aa./, @List);# foreach $Temp (@List2){ print "$Temp\n"; < > = sort <> @List = ("b", "d", "e", "a", "c", "f"); @List2 = sort @List; # print "@List2\n"; < > = sort { $a <=> $b <> @List = (5, 3, 1, 2, 4, 0); @List2 = sort { $a <=> $b @List; # print "@List2\n"; 2 < > = sort { @$a[< >] cmp @$b[< >] <> @List = ([0, c], [1, b], [2, a]); 2 Programing..
@List2 = sort { @$a[1] cmp @$b[1] @List; #2 for($i=0 ; $i<3 ; $i++){ for($j=0 ; $j<2 ; $j++){ print "$List2[$i][$j]\t"; print "\n"; 2 < > = sort { @$a[< >] <=> @$b[< >] <> @List = ([0, 2], [1, 3], [2, 1]); @List2 = sort { @$a[1] <=> @$b[1] @List; #2 for($i=0 ; $i<3 ; $i++){ for($j=0 ; $j<2 ; $j++){ print "$List2[$i][$j]\t"; print "\n"; scalar(@< >) @List = ("AAA", "BBB", "CCC"); print scalar(@list),"\n"; # &< >::< >(< >) 3 Programing..
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..
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 "$FileName\n"; @List = split(/< >/, $String); $String = "Test-Test-Test"; @List = split(/-/, $String); print "@List\n"; $String1 = $String2. $String3; $String2 = "a"; $String3 = "b"; $String1 = $String2. $String3; print "$String1\n"; 5 Programing..
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..
-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 1900 + $Year," ", $Month + 1," $Day $Hour $Min $Sec \n"; while($string = readdir(< >)){ opendir(inputdirectory,"./"); while($filename = readdir(inputdirectory)){ print "$FileName\n"; 7 Programing..
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) ( ) @List = (< >) x < > @List = (0) x 5; print "@List\n"; 2 ( ) for(1..< >){push(< >,[(< >) x < >]); for(1..3){push(@list2,[(0) x 5]); 8 Programing..
-MYPEDIA Programingprint "@{$List2[0]\n@{$List2[1]\n@{$List2[2]\n"; $Vector = vpdl(< >) @List = (1,2); $Vector = vpdl(@list); print "$Vector\n"; index(< >,< -1>) @List = (1,2); $Vector = vpdl(@list); $Scalar = index($vector,0); print "$Scalar\n"; $Matrix = mpdl(<2 >) @List = ([1,2],[3,4]); $Matrix = mpdl(@list); print "$Matrix\n"; 9 Programing..
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..
< >->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..
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..
2 1 perl -e < > perl < 1 > < 2 >... < n > [ctrl + D] perl < > 13 Programing..