Petits bouts de code à usage divers.
#!/usr/bin/perl unless( $ARGV[1] ) { print "Usage : $O <fichier> <pattern> [intervalle]\nIntervalle par défaut = 1s.\n"; exit; } my $interval = $ARGV[2]?$ARGV[2]:1; my $l = ""; while(1) { open my $fd, "< $ARGV[0]"; while(<$fd>) { last if /$ARGV[1]/; } chomp; if( $_ ne $l ) { my $t = `date +[%H:%M:%S]`; chomp $t; print "$t ", $l = $_, "\n"; } close $fd; sleep $interval; }
#!/bin/sh if [ $# -ne 1 ]; then echo "Usage : mks <nom du script>" && exit 1 fi if [ -e "$1" ]; then echo "$1 existe déjà." && exit 1 fi > "$1" chmod +x "$1" if [ "${1: -3}" == ".pl" ]; then echo -e "#!/usr/bin/perl\n\n" > "$1" fi if [ "${1: -3}" == ".sh" ]; then echo -e "#!/bin/sh\n\n" > "$1" fi $EDITOR "$1"
#!/usr/bin/perl $s = ""; $p = "man"; #print $ENV{QUERY_STRING}; ($p) = $ENV{QUERY_STRING} =~ m!p=([a-z._]+)!; ($s) = $ENV{QUERY_STRING} =~ m!s=(.)!; open $fd, "man $s $p 2>&1 |"; @l = <$fd>; $l = join "", @l; $l =~ s!(.)\010\1!<b>\1</b>!sg; $l =~ s!_\010(.)!<u>\1</u>!sg; $l =~ s!</(.+)><\1>!!sg; $l =~ s!(</.>)?([a-z._]+)(</.>)?\((.)\)!< a href=man?p=\2&s=\4>\1\2\3\(\4\)</a>!sg; print <<END; Content-type: text/html\n <html> <head><title>$p($s)</title></head> <body><form><input type=text name=p><input type=submit value=man></form> <pre>$l</pre></body></html> END
Network -----------+----------- | +-------+------+ | mangle | | PREROUTING | <- MARK REWRITE +-------+------+ | +-------+------+ Policy rule database | PRDB | <- controlled by ip rule +-------+------+ | +-------+------+ | nat | | PREROUTING | <- DEST REWRITE +-------+------+ | packet is for +-------+------+ packet is for this address | INPUT | another address +--------------+ ROUTING +---------------+ | +--------------+ | +-------+------+ | | filter | | | INPUT | | +-------+------+ | | | +-------+------+ | | Local | | | Process | | +-------+------+ | | | +-------+------+ | | OUTPUT | +-------+-------+ | ROUTING | | filter | +-------+------+ | FORWARD | | +-------+-------+ +-------+------+ | | mangle | | | OUTPUT | MARK REWRITE | +-------+------+ | | | +-------+------+ | | nat | | | OUTPUT | DEST REWRITE | +-------+------+ | | | +-------+------+ | | filter | | | OUTPUT | | +-------+------+ | | | | | +----------------+ +--------------------+ | | | | +--+-------+---+ selection of the output | | interface, | FORWARDING | selection of the next hop, +-------+------+ encapsulation, etc. | | +-------+------+ | nat | | POSTROUTING | SOURCE REWRITE +-------+------+ | | +-------+------+ | TRAFFIC | | QUEUE | <- controlled by tc +-------+------+ | | -----------+----------- Network
Comments
Je vous tiens au courant.
For more services:- Marketing Dissertation Help in UK | DBMS Assignment Help in Australia
Scriptlets pg slot [url=https://www.pgslot168.com/]pg slot[/url]
Also, read a blog by Robin
IoT Solutions
Tools & Gadgets For Your Needs!
world news
bestcocktails
bestcocktails
bestcocktails
find home contractors
By: Economics Help Online
Check over here: บาคาร่า บาคาร่า
บริษัท รับสร้างบ้านที่มอบความไว้วางใจสูงสุดให้กับลูกค้าในทุกรายละเอียดของบริการก่อสร้างบ้าน
เซรั่มน้ำมันมะพร้าวสกัดเย็น และมาร์คหน้าข้าวหอมมะลิ
لعبة من سيربح المليون
لعبة جاتا
صب واي سيرفرس
زوما
العاب كلاش
IT Consulting Services & Business Solutions
Speaking of site, take a look at here: บาคาร่า
geometry dash
Error Code 0xc0000034
Résultat, mon slip pue.
floor tiles
Vacuum Sealer Reviews
best ski bags
Tiles Visualizer
for help.