manchicken

✔ ~/Devel/perl6-posix-1 [refactoring|✚ 3]
22:45 $ perl6 --ll-exception -Ilib t/02-getuid.t
Could not find symbol '&DEFAULT'
   at SETTING::src/core/Exception.pm:57  (/usr/local/Cellar/rakudo-star/2017.10/share/perl6/runtime/CORE.setting.moarvm:throw)
 from SETTING::src/core/Failure.pm:44  (/usr/local/Cellar/rakudo-star/2017.10/share/perl6/runtime/CORE.setting.moarvm:throw)
 from SETTING::src/core/Failure.pm:106  (/usr/local/Cellar/rakudo-star/2017.10/share/perl6/runtime/CORE.setting.moarvm:CALL-ME)
 from gen/moar/BOOTSTRAP.nqp:3002  (/usr/local/Cellar/rakudo-star/2017.10/share/nqp/lib/Perl6/BOOTSTRAP.moarvm:)
 from /Users/manchicken/Devel/perl6-posix-1/lib/POSIX.pm (POSIX):9  (/Users/manchicken/Devel/perl6-posix-1/lib/.precomp/272B80FC0A239CB25AC22453FE7B3B3434A80F34.1512853927.34594/23/23507E798D66FEE0B05313C2A15E15FF93E82F20:EXPORT)
 from src/Perl6/World.nqp:880  (/usr/local/Cellar/rakudo-star/2017.10/share/nqp/lib/Perl6/World.moarvm:)
 from src/Perl6/World.nqp:848  (/usr/local/Cellar/rakudo-star/2017.10/sh

manchicken

<form method="post" enctype="multipart/form-data" id="form" onSubmit="return runIt();">
  <label for="fileInput">Select a File</label>
  <input multiple="true" type="file" id="fileInput" name="fileInput" />
  <input type="submit" name="submit" value="Check!" />
</form>

manchicken

Examples

A Pen by Michael D Stemle Jr on CodePen.

License.

manchicken

'use strict'

const http = require('http')
const _ = require('lodash')

// Create an HTTP tunneling proxy
var svr = http.createServer( (req, res) => {

  // Just some simple handler routines
  const handlers = _.merge(

manchicken

find ./public -type f | grep --line-buffered -i -E '\.(jpg|jpeg|bmp|gif|png)' | grep -v dojo

# OR

find -E ./public -type f -iregex '.*\.(jpg|jpeg|bmp|gif|png)' | grep -v dojo

# Compare the results of the two commands using MD5 sums:

find -E ./public -type f -iregex '.*\.(jpg|jpeg|bmp|gif|png)' | grep -v dojo | md5
# 65cc4b9df9eb6f99ecce0b5b1d209ecc

manchicken

grep -aroP '.{0,20}XXXXX.{0,20}' {*.log,*.log-????????}

manchicken

mstemle@mstemle901:~/Desktop$ ./runtests.sh
String length: 512
************************
* if + strtolower *
************************
Time: 0.001159
Memory: 1904
************************
*      strcasecmp      *
************************

manchicken

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use utf8;
use encoding 'utf8';

my $gbp = '£1.30';
my $usd = '$1.50';

manchicken

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use English;

for ( 0 .. 5 ) {
    next if ( fork() > 0 ); # Remember, fork returns zero to the child, and the PID of the child to the parent.
    
    identify_yourself(); # This sends the child process on its merry way.

manchicken

#!/usr/bin/env perl
use strict;
use warnings;
use 5.014;

use DateTime;
use Test::More tests => 12;
use Test::MockModule;

# Fancy new package block syntax