P Perl

Size: px

Start display at page:

Download "P.228-231 Perl"

しゅんすけたにしき
7 years ago
Views:

1 XPress Illustrator PostScript PDF HTML SGML XML DTP 1 Over View Mac Metal Glue is it True. What is? Howdy! MacJ print "Howdy, World!n"; 228 Mac

2 q w e r t y Mac 229

3 q w #!/usr/local/bin/perl while(<>) { $count += s/./$&/g; print "$ARGVa n$countn"; a q w e #!/usr/local/bin/perl print "n"; $find_words = <STDIN>; chop($find_words); while(<>){ if (/$find_words/) { print "$ARGV $_"; 230 Mac

$chop($find_words); while(<>){ if (/$find_words/) {$

4 q w e r t y TEXT TEXT TEXT Web The Language Home Page MacJ Hora's Home Page [Powered By Mac-OS] Mac AppleScript Irregulars Show Time BBS News NIFTYSERVE NewsGroup NewsGroup Mac 231

5 XPress Illustrator PostScript PDF HTML SGML XML DTP 2 Get it ON!!! 278 Mac

6 #!/usr/local/bin/perl print " n"; $find_words = <STDIN>; chop($find_words); while(<>){ if (/$find_words/) { print "$ARGV $_"; s s///ig;. [A-Z0-9] [^A-Z0-9] d D w W s S n r t f 0 ca ooo xhh ^ $ b B x? x* x+ x{m,n x{m, x{m x{,n $1 $2 $+ $` $& $' #!/usr/local/bin/perl -pi.bak s/^ r//; Mac 279

7 #!/usr/local/bin/perl while(<data>){ # print; END #!/usr/local/bin/perl -pi.bak s/ n/ n r/; #!/usr/local/bin/perl -pi.bak s/( D)?0([56])0 -( d{3 - d{4)/${1070 -$2$3/;#PHS s/( D)?0([1-48])0 -( d{3 - d{4)/${1090 -$2$3/;# s/( D)?06 -( d{3 - d{4)/${106-6$2/;# Mac

8 #!/usr/local/bin/perl -pi.bak s/^[^ ].+$/ $&/; #!/usr/local/bin/perl -pi.bak s/ d+/$& + 1/eg; tr #!/usr/local/bin/perl -pi.bak tr/---/a-za-z0-9/; Note There's More Than One Way To Do It! Mac 281

9 DTP All I want is Easy Action!! #!/usr/local/bin/perl while(<>) { $count += s/./$&/g; if (eof) { print "$ARGV $count n"; $scalar = = (,,,, ); %hash = ( =>, =>, => ); 258 Mac

10 #!/usr/local/bin/perl = ('p', 'q', 'w', 'e', a 'r', 't', 'y', 'u', 'i', 'o'); s/( d)/ a < $f "GthinHround "> a $maru_suji[$1]< $f $>/g; a #!/usr/local/bin/perl -pi.bak %youbi = ( '' => 'h', '' => 'i', '' => 'j', '' => 'k', '' => 'l', '' => 'm', '' => 'n'); % _ s/[]/ a < $f "PifontWk1 ">$youbi{$& a < $f $>/g; Mac 259

$f "GthinHround "> a $maru_suji[$1]< $f $>/g; a bak %youbi = ( '' => 'h', '' => 'i',

11 if unless if (1) { 1 elsif (2) { 2 elsif (3) { 3 else { 13 while 1 until while() { for 2 for ($i = 0; $i < 10; $i++) { print "$i n"; print " n"; $i = 0; while ($i < 10) { print "$i n"; continue {$i++#$i print " n"; foreach 3 foreach() { 260 Mac

12 for($i = 0;$i<10;$i++) { print "Loop Start! $i = $i, a $_ = $_ n"; $_ = <STDIN>;# last if /last/;#'last' print "through of last... n"; next if /next/;#'next' print "through of next... n"; redo if /redo/;#'redo' print "through of redo... n"; print "Loop End! $i = $i, a $_ = $_"; Note; #!/usr/local/bin/perl while(<>){ open(output, a ">$ARGV.new") a unless -e "$ARGV.new"; s/^ r//; print OUTPUT;# close OUTPUT; open(,a "") die a "Can't open : $! n"; Mac 261

$.. n"; print "Loop End! $i = $i, a $_ = $_"; Note; #!/usr/local/bin/perl while(<>){ open(output, a ">$ARGV.$

13 DTP All I want is Easy Action!! 1 $str = 'Japan Keizo Obuchi'; ($country,$name)=split(//,$str,2); $president{$country= $name; print "$president{$country n"; $str = = split(//, $str); $str = print = splice(@proverb, @proverb 270 Mac

$president{$country= $name; print "$president{$country n"; $str = 'ABCDEF';

14 @tokage = ('','',''); $shippo = pop(@tokage); print "$shippo n", " a "; push(@tokage, '3', '4'); print = ('', '1', a '2', '3', '4'); $atama = shift(@tokage); unshift(@tokage, ''); print "$atama n"; print 1234 = ('', '1', a '2', '3', '4'); $shippo = = splice(@tokage, 1, 2, a $shippo); print a " n"; print = ('', '', a '', = sort(@array); print = (2,-9, 10, 0, 152, = sort({$a <=> print = ('', '', a '', = reverse sort(@array); print join(" Mac 271

$@array = (2,-9, 10, 0, 152, -256); @array_sort = sort({$a <=> $b @array); print join(" n", @array_sort); @array = ('', '', a '', ''); @array_sort = reverse sort(@array); print join(" n",$

15 STDIN chop($ans = = ('','abc','0123'); chop (@array); print"@array"; $str = 'MACLIFE'; chomp($atr);# print "$str[y/n] n"; $ans = getc; print "$ans n"; #!/usr/local/bin/perl -pi.bak chomp if length($_) >= 70; ($sec,$min,$hour,$mday,$mon,a $year, $wday) = localtime(time); $month = a ('','','','','', a '', '', '', '', a '', '', '')[$mon]; $week = ('', '', '', '', a '', '', '')[$wday]; $year = $year ; # print "$year $month $mday a ($week) $hour $min a $sec n"; foreach $i (1.. 10) { $n = sprintf("%0.3d n", $i); print "$n"; foreach $n ( ){ printf "%.2X : %c n", $n, $n; $str_1 = ' '; $str_2 = 'print $str_1'; eval $str_2; 272 Mac

bak chomp if length($_) >= 70; ($sec,$min,$hour,$mday,$mon,a $year, $wday) = localtime(time); $month = a ('','','','','', a '', '', '', '', a '', '', '')[$mon]; $week =

16 %week = ( 'Mon.', '', 'Tue.', '', 'Wed.', '', 'Thu.', '', 'Fri.', '', 'Sat.', '', 'Sun.', = = values(%week); print "@english = ("",""," ",a "", " = grep (/[ $count = grep (/[ print "@meiken n$count"; information $num = ; $ans=&commas($num); print "$ans n"; sub commas { local($_) 1 while a s/(.* d)( d{3)/$1,$2/; $_; while(<>) { tr/0-9/-/; s/[-]{2,/a &han($&)/eg; print; sub han { local($_) tr/-/0-9/; $_; require "MTSH.pl"; $cen = "1999"; $wa=&mtsh'conv($cen); print "$wa n"; Mac 273

@pets); $count = grep (/[ -]+/, @pets); print "@meiken n$count"; information $num = 1234567890; $ans=&commas($num); print "$ans n"; sub commas {

18 @variation = (" ", ""," ", " ", " "); $color = &Mac'Pick( print "$color "; require = ("TEXT","EPSF","TIFF"); $filename = a &StandardFile'GetFile(@types); print "$filename n"; require "StandardFile.pl"; $newname = a &StandardFile'GetNewFile ("", "new.txt"); print "$newname n"; require "timelocal.pl"; ($year, $mon, $mday) = split(/./, &Mac'Ask( "", " ")); $time = int((time - &timelocal (0,0,0,$mday, ($mon - 1), $year))/86400); print " na $time n"; require "StandardFile.pl"; $foldername = a &StandardFile'GetFolder (" "); print "$foldername n"; &Mac'SetFileInfo( a "YoED", a Mac 271

pl"; $newname = a &StandardFile'GetNewFile ("", "new.txt"); print "$newname n"; require "timelocal.pl"; ($year, $mon, $mday) = split(/./, &Mac'Ask( "", "196

19 AppleScript Script AppleScript &Mac'DoAppleScript(a <<END_SCRIPT); tell application "MacJ" set ans to (display dialog a "" default answer a "print 'Howdy world';" a buttons {" ", "",a "" default button 3 a with icon 1) make new Window copy (text returned of ans) to a character 1 of front Window if (button returned of ans) = a "" then Do Script (text returned of ans) end if end tell END_SCRIPT AppleScript Script set data_t to "123a 500 " set _script to = split(/[^ d]+/, $ARGV[0]); $c = ($data[1] - $data[0]). ''; &Mac'Reply($c);" tell application "MacJ" set kekka to Do Script a {_script, data_t display dialog data_t & a return & kekka end tell 272 Mac

then Do Script (text returned of ans) end if end tell END_SCRIPT AppleScript Script set data_t to "123a 500 " set _script to " @data = split(/[^ d]+/, $ARGV[0]); $c =

20 set str to "6 + 4" set perl_script to " $ans = eval($argv[0]); print $ans;" tell application "MacJ" set ANS to Do Script a {perl_script, str mode Batch display dialog str & " = " & ANS end tell ####AppleScript set alist to {"", "", " ", "" set F_path to choose file with prompt "test.pl" tell application "MacJ" set aretlist to Do Script ({F_path & alist) end tell set AppleScript's text item delimiters to {"" set alist to (every text item of aretlist) as list set AppleScript's text item delimiters to {"" alist ####Scripttest.pl #! /usr/local/bin/perl foreach $_ (@ARGV){ tr/ ----/ -A-Za-z0-9/; $ans = join('',@argv); Mac::Reply($ans); ####AppleScript {" ", "Ichikawa", " ", "" Mac 273

$pl" tell application "MacJ" set aretlist to Do Script ({F_path & alist) end tell set AppleScript's text item delimiters to {"" set alist to (every text item of aretlist) as$

21 Mac 244 You Got Power!! QuarkXPress & Mac Scripts QuarkXPress #!/usr/local/bin/perl -pi.bak s/ /< >/g; s/<([^ ])/< s/^ d t/@:< $>$&/; s/^ d. d t/@:< $>$&/; s/^ d. d. d t/@:< $>$&/;

22 HTML s/ &/ &/g; s/</ </g; s/>/ >/g; s/ "/ "/g #!/usr/local/bin/perl -pi.bak s/<[^>]+>//g; s/^ s* n//; s/ &/ &/g; s/ </</g; s/ >/>/g; s/ "/ "/g Illustrator PS Mac 245

23 sub PP { local($_) s/ / 134/g; s/ ( d{3) ( d{3)/ pack("cc",oct($1),oct($2))/eg; s/ ( d{3)/pack("c",oct($1))/eg; s/ r/ n/g; $_; DCS Mac

24 SMTP GIF?! Mac 247

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV

10/ / /30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20 6. http, CGI Perl 11/27 7. ( ) Perl 12/ 4 8. Windows Winsock 12/11 9. JAV tutimura@mist.i.u-tokyo.ac.jp kaneko@ipl.t.u-tokyo.ac.jp http://www.misojiro.t.u-tokyo.ac.jp/ tutimura/sem3/ 2002 11 20 p.1/34 10/16 1. 10/23 2. 10/30 3. ( ) 11/ 6 4. UNIX + C socket 11/13 5. ( ) C 11/20