This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
# Author: A. Sinan Unur | |
# Copyright (C) 2013 | |
# License: This is free software. You can use it under the terms | |
# of Artistic License 2.0 <http://opensource.org/licenses/Artistic-2.0> | |
# In particular: | |
# (14) Disclaimer of Warranty: THE PACKAGE IS PROVIDED BY THE COPYRIGHT | |
# HOLDER AND CONTRIBUTORS "AS IS' AND WITHOUT ANY EXPRESS OR IMPLIED | |
# WARRANTIES. THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.014; | |
use strict; | |
use warnings; | |
use open qw(:std utf8); | |
# This is where a patched version of Module::Extract::Use lives | |
# The patched version adds a 'content' accessor to M::E::U::Item objects |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.014; | |
use strict; | |
use warnings; | |
use File::Find; | |
use PPI; | |
use SQL::Statement; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.014; | |
use strict; | |
use warnings; | |
use File::Basename qw(basename); | |
use File::Find; | |
use GraphViz2; | |
use Log::Handler; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
# Copyright (C) 2013 A. Sinan Unur | |
# http://www.perlfoundation.org/artistic_license_2_0 | |
use 5.012; | |
use strict; | |
use warnings; | |
use warnings qw(FATAL utf8); | |
use open qw(:std :utf8); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.020; # just because | |
use strict; | |
use warnings; | |
use Const::Fast; | |
use GD; | |
GD::Image->trueColor(1); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
# This is a very quick and dirty script to parse information from the page | |
# | |
# http://stats.cpantesters.org/mplatforms.html | |
# | |
# This one works on a locally downloaded copy, the regex patterns used are | |
# the first one's that popped into my head. | |
# | |
# I hereby release this code snippet to the public domain. |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use strict; use warnings; | |
use feature 'say'; | |
use Const::Fast; | |
use Imager; | |
use Imager::Screenshot qw( screenshot ); | |
use Win32::GuiTest qw( SetForegroundWindow ); | |
use Win32::OLE qw(EVENTS valof); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
use 5.020; # hey, why not? | |
use warnings; | |
use Const::Fast; | |
use Win32::GuiTest qw( | |
GetForegroundWindow | |
SetForegroundWindow | |
GetScreenRes |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env perl | |
=for purpose | |
See http://www.nu42.com/2015/03/fix-malformed-xml-with-perl-xml-parser.html | |
for motivation. This script is the simplest possible implementation of an | |
idea. Not tested. Likely to contain bugs ;-) | |
=cut |
OlderNewer