http://qs1969.pair.com?node_id=467754


Newest Nodes
User Settings
Simple Module Tutorial # # Text Editor One Liner # perl -MTk -MTk::TextUndo -e "(tkinit)->Scrolled('TextUndo')->pack; MainLoop" # # CSS Stylesheet # body { background-color: #aaa; color: #002; font-family: avantgarde, verdana, Georgia, sanserif; padding: 0; padding-right: 1%; padding-left: 1%; margin-top: 0; } div#titlebar iframe { position: absolute; left: 1cm; border: none; } h1 { text-align: center } h1, h2, h3, h4, h5, h6 { font-family: "times new roman", palatino, modern, "zapf chancery", avantgarde, serif; size: 110% } h1#sitename { position: absolute; right: 3cm; top: 4mm; } h1#sitename a, h1#sitename a:visited, h1#sitename a:hover { text-decoration: none; color: green; } hr { height: 0px; background-color: navy; color: white; border 1px solid navy; width : 80%; } a { color: #00a; text-decoration: none; } a:visited { color: green } a:hover { text-decoration: underline } body div.title { font-weight: bold; padding-bottom: 10px; } body div.notice { background-color: navy; border: 1px solid navy; text-align: center; padding: 10px; margin-bottom: 10px; } ul.replies { padding: 20px; border-top: 1px solid navy; } ul.replies li { list-style: none; } li.reply div.header { background-color: navy; border: 1px solid navy; padding: 5px; } li.reply div.body { padding: 20px; } div.chatmessages { font-size: 70%; } div#nodebody { background-color: #fff; border: 1px solid #00a; width: 74%; float: right; padding: 5mm; z-index: 10; margin-bottom: 1cm; } div.nodelets { float: left; width: 20%; font-size: smaller; margin-bottom: 1cm; z-index: -10; } body div#footer, div#titlebar { border: 1px solid #00a; background-color: white; clear: both; margin-top: 5mm; margin-bottom: 5mm; } div#titlebar { padding: 1mm; padding-bottom: 0mm; } div#footer { font-size: smaller; padding: 4mm; text-align: center; } div.nodelets div.nodelet { margin: 2px; margin-bottom: 5mm; } div.nodelets div.nodelet div.head { padding: 5px; } div.nodelets div.nodelet div.head a { text-decoration: none; } div.nodelets div.nodelet div.head a:hover { text-decoration: underline; } div.nodelets div.nodelet div.head img { border: 0mm; vertical-align: middle; margin: 0mm; } div.nodelets div.nodelet div.head span.controls { float: right; } span.controls img.remove { padding-left: 4px; border-left: 1px solid navy; } div.nodelets div.nodelet div.body { padding: 5px; font-family: serif; } input, select, textarea, checkbox { border: 1px solid #00a; padding: 1px; color: #002; } input, select, option, checkbox { -moz-border-radius: 2mm; } textarea { -moz-border-radius: 3mm; margin-bottom: 5mm; } submit { background-color: navy; } div.section { padding: 10px } div.section div.node div.head { background-color: #aaf; border: 1px solid navy; padding: 5px; } div.section div.node div.body { padding: 20px; } div.section div.node div.reply { padding: 5px 0 5px 0; text-align: center; } div.section { background-color: white; border: none; } #patchlist { border: 0; margin: 4px; } #patchlist th.applied { text-align: right } #patchlist td.applied { text-align: right } #patchlist td { border: 0 } #patchlist th { padding: 2px; border: 0; text-align: left; background-color: navy; font-size: 11pt; } div#nodelet348608 { height: 12cm; } div#nodelet348608 iframe { height: 10.5cm; } div.showcontainer { border: 1px solid #0f0 } div.containername { background-color: navy; border-bottom: 1px solid #0f0 } body { background-color: navy; } a { color: #006; } a:visited { color: green } body div.notice { background-color: navy; } li.reply div.header { background-color: navy; } div#nodebody { border: 1px solid #00a; } div.section div.node div.head { background-color: navy; } #patchlist th { background-color: navy; } div#nodebody, div.nodelets div.nodelet, div#footer, div#titlebar { } body, body div.notice, li.reply div.header, div.section div.node div.head, #patchlist th {} div.nodelet div.head, div.nodelet div.body, div#titlebar, div#footer, div#nodebody, div.header { background-color: #efefff; border: 1px solid #00a; } div#titlebar, div#footer, div#nodebody, div.header { -moz-border-radius: 3mm; } div.nodelet div.head { -moz-border-radius-topleft: 3mm; -moz-border-radius-topright: 3mm; } div.nodelet div.body { -moz-border-radius-bottomleft: 3mm; -moz-border-radius-bottomright: 3mm; } div.nodelet div.head { margin-bottom: 1mm; } body, body div.notice, li.reply div.header, div.section div.node div.head, #patchlist th /* { background-image: url(http://petruchio.perlmonk.org/navybrick.jpg) }*/ textarea { width: 100%; height: 460px; } /* Mozilla form-styling code, stolen from http://kmgerich.com/archive/000072.html */ /* inputtype="text", inputtype="password", input:not(type) { border: 2px solid !important; -moz-border-top-colors: #888 #ccc; -moz-border-left-colors: #ccc #fff; -moz-border-right-colors: #ccc #fff; -moz-border-bottom-colors: #ddd #fff; } button, inputtype="reset", inputtype="button", inputtype="submit", select:not(multiple) { border: 2px solid !important; -moz-border-bottom-colors: #999 #ddd; -moz-border-left-colors: #777 #fff; -moz-border-right-colors: #999 #ddd; -moz-border-top-colors: #77f #fff; } button:focus:active, inputtype="reset":hover:active, inputtype="button":hover:active, inputtype="submit":hover:active, select:not(multiple):hover:active { border: 2px solid !important; -moz-border-top-colors: #999 #ddd !important; -moz-border-right-colors: #777 #fff !important; -moz-border-left-colors: #999 #ddd !important; -moz-border-bottom-colors: #777 #fff !important; } select > inputtype="button" { border-top: none !important; border-left: 1px solid #ddd !important; border-right: none !important; border-bottom: none !important; background-image: none !important; background-color: transparent !important; } / * inputtype="text":focus, inputtype="password":focus, input:not(type):focus, selectmultiple:focus { -moz-border-top-colors: -moz-mac-focusring -moz-mac-focusring !important; -moz-border-left-colors: -moz-mac-focusring -moz-mac-focusring !important; -moz-border-right-colors: -moz-mac-focusring -moz-mac-focusring !important; -moz-border-bottom-colors: -moz-mac-focusring -moz-mac-focusring !important; -moz-border-radius: 2mm; } textarea:focus { -moz-border-radius: 3mm; } * / textarea, selectmultiple { border: 2px solid !important; -moz-border-bottom-colors: transparent #999 !important; -moz-border-left-colors: transparent #999 !important; -moz-border-right-colors: transparent #999 !important; -moz-border-top-colors: transparent #777 !important; } */ # # Send Mail Directly from Perl # my $LOGTIME = ... my @emails = qw(brother@elwood.com sister@elwood.com); my $LOGFILE = "/home/admin/logs/check_jvm/check_jvm_$LOGTIME.log"; open(LOG,"$LOGFILE") or die; { undef $/; $log = <LOG>; } close LOG; if (open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")) { print SENDMAIL "From: PROD\@elwood.com\n" . "To: " . join(" ", @emails) . "\n" . "Subject: Web Server Issue\n" . "$log\n"; close(SENDMAIL); } # # Comm.pl # #Here's how to use Comm.pl, require "Comm.pl" &Comm'init(1.8); &set_traps; $program=&open_proc("some program"); ($success, $matched, $before_match, $after_match ) = &expect ( $program, 10(time out in sec), 'what you are expecting'); die "Time out\n" unless ($success); print $program "What you want to send to the program\n";
IPC::Open3 woes
Search and replace in multple MS Word documents