{"id":51,"date":"2015-12-24T23:22:50","date_gmt":"2015-12-24T23:22:50","guid":{"rendered":"http:\/\/www.ferzkopp.org\/wordpress\/?p=51"},"modified":"2016-01-08T07:44:29","modified_gmt":"2016-01-08T15:44:29","slug":"snippet-mania","status":"publish","type":"post","link":"https:\/\/www.ferzkopp.net\/wordpress\/2015\/12\/24\/snippet-mania\/","title":{"rendered":"Snippet Mania"},"content":{"rendered":"

Every coder has a collection of \u201csnippets\u201d \u2013 little bits of code that did something useful at some point in time.<\/p>\n

<\/p>\n

Perl Snippets<\/h5>\n

Useful perl code fragments.<\/p>\n

base64.pl<\/strong><\/p>\n

#!\/usr\/bin\/perl -w\r\nuse strict;\r\nuse CGI qw(:standard);\r\nuse MIME::Base64 qw(encode_base64);\r\nmy $filename;\r\nmy $buffer;$filename = param('f');\r\nprint \"Content-type: text\/html\\r\\n\\r\\n\";\r\nprint \"\\<FILE name='$filename' encoding='base64'\\>\\r\\n\";\r\nopen(FILE, \"$filename\") or die \"$!\";\r\nwhile (read(FILE, $buffer, 60*57)) {\r\n print encode_base64($buffer);\r\n}\r\nprint \"\\<\\\/FILE\\>\\r\\n\";<\/pre>\n
url-encode.pl<\/strong><\/p>\n
sub URLEncode {\r\n my $theURL = $_[0];\r\n my $MetaChars = quotemeta( ';,\/?\\|=+)(*&^%$#@!~:');\r\n $theURL =~ s\/([$MetaChars\\\"\\'\\x80-\\xFF])\/\"%\" .\r\n uc(sprintf(\"%2.2x\",         ord($1)))\/eg;\r\n $theURL =~ s\/ \/\\+\/g;\r\n return $theURL;\r\n}<\/pre>\n
Unicode to ASCII Conversion <\/strong><\/p>\n
use Unicode::String;\r\nlocal $\/; # slurp mode\r\n$line=<>;\r\n$u=Unicode::String::utf8($line);\r\n$latin1=$u->latin1;\r\nprint $latin1;\r\n\r\n<\/pre>\n
Load a Google-News Search as RSS Feed<\/strong><\/p>\n
use LWP::UserAgent;\r\n# RSS feed to load\r\n$url = \"http:\/\/news.google.com\/news?hl=en&ned=&q=cancer&ie=UTF-8&output=rss\";\r\n# Load data\r\n$ua = LWP::UserAgent->new;\r\n$ua->timeout(5);\r\n$ua->agent(\"Mozilla\/5.0\");\r\n$response = $ua->get($url);\r\nif ($response->is_success()) {\r\n # Data is content of request\r\n $rss_xml = $response->content;\r\n # Info and count\r\n $result .= \"XML loaded from URL '$url' ...\\n\";\r\n} else {\r\n # Load failed\r\n $result .= \"Load error for URL '$url' ...\\n\";\r\n $result .= $response->status_line . \"\\n\";\r\n}\r\nprint $result;<\/pre>\n
JavaScript Snippets<\/h5>\n
Useful JavaScript code fragments.<\/p>\n
IsEmail()<\/strong><\/p>\n
function IsEmail(emailStr) {\r\n  if (  emailStr.match( new RegExp(\r\n                        '^(\\\\s*)((\"[^\"]*\")|\\\\w+([*&+~!-\\\\.]\\\\w+)*)\r\n                         @\\\\w+([-\\\\.]\\\\w+)*\\\\.\\\\w{1,3}(\\\\s*)$'\r\n                                   ) ) == null )\r\n\treturn false;\r\n  return true;\r\n}<\/pre>\n
IsNumber()<\/strong><\/p>\n
function IsNumber(sText)\r\n{\r\n   var ValidChars = \"0123456789\";\r\n   var IsNumber=true;\r\n   var Char;   for (i = 0; i < sText.length && IsNumber == true; i++) { \r\n      Char = sText.charAt(i); \r\n      if (ValidChars.indexOf(Char) == -1) {\r\n         IsNumber = false;\r\n      }\r\n   }\r\n   return IsNumber;\r\n}<\/pre>\n
GetUrlParameter()<\/strong><\/p>\n
function GetUrlParameter(param) {\r\n var val = \"\";\r\n var qs = window.location.search;\r\n var start = qs.indexOf(param); if (start != -1) {\r\n  start += param.length + 1;\r\n  var end = qs.indexOf(\"&\", start);\r\n  if (end == -1) {\r\n   end = qs.length\r\n  }\r\n  val = qs.substring(start,end);\r\n }\r\n return val;\r\n}<\/pre>\n
C\/C++ Snippets<\/h5>\n
Useful C\/C++ code fragments.<\/p>\n
Fast Line Algorithm
\nfastLineAlgorithm.txt
\n<\/a>
\nFast Triangle Intersection Test
\nfastTriangleIntersectionTest.txt<\/a><\/p>\n
TwoFish Encryption
\nReference<\/a> Optimized<\/a><\/p>\n
DLL demo
\ndll-demo.zip<\/a><\/p>\n
Shell Snippets<\/h5>\n
Various shell scripts and commandline fragments that come in handy from time to time.<\/p>\n
rsync Folder Mirroring Syntax<\/strong><\/p>\n
rsync -e ssh -av \/home\/user\/Source\/ user@www.hostname.net<\/a>:\/home\/user\/Target<\/p>\n
Start a VNC Server<\/strong><\/p>\n
vncserver -kill :1
\nvncserver :1 -geometry 1024×768 -depth 16 -name MyVNC -rfbport 5021 -httpport 5022<\/p>\n","protected":false},"excerpt":{"rendered":"
Every coder has a collection of \u201csnippets\u201d \u2013 little bits of code that did something useful at some point in time.<\/p>\n","protected":false},"author":1,"featured_media":139,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"footnotes":""},"categories":[22],"tags":[63,26,27,24,23,25],"class_list":["post-51","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-software","tag-bash","tag-cc","tag-javascript","tag-perl","tag-source","tag-unix"],"_links":{"self":[{"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/posts\/51","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/comments?post=51"}],"version-history":[{"count":4,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/posts\/51\/revisions"}],"predecessor-version":[{"id":199,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/posts\/51\/revisions\/199"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/media\/139"}],"wp:attachment":[{"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/media?parent=51"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/categories?post=51"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ferzkopp.net\/wordpress\/wp-json\/wp\/v2\/tags?post=51"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}