sub FunctionFullOfStuff {
    use File::Find;

    [...]

    my @dir = ('\\REMOTESERVER\Folder\Subfolder');
    find(\&wanted, @dir);

    [...]
}

sub wanted {
    print "$File::Find::name\n" if (lc($_) eq 'uniquefilename.xml');
}

syphon^2 fucked around with this message at 15:47 on Mar 18, 2008

use File::Find;

my $file;
my @dirs = ("$server\\$path");

find( sub { $file = $File::Find::name if (lc($_) eq 'uniquefilename.xml') },  @dirs);
print "Now I have the file path ($file) stored in a variable!\n";

syphon^2 fucked around with this message at 16:48 on Mar 18, 2008

Redbeard fucked around with this message at 13:35 on Mar 19, 2008

foreach $file (@files) {
	$size = -s "$file" ;                #Problem line - supposed to get the filesize.
	$file =~ /(.*?)\s\d/;               #Get just the name, not the number, of the file
	$filecrop = $1 . " " . $size;       #Put it all together.
	print $filecrop . ".jpg" . "\n";    #This is filler for the file manipulation.
}

Narpas fucked around with this message at 23:22 on Mar 22, 2008

foreach (keys %files) {

    my $file_name = $_;
    my $file_size = $files{$_};
    print "$file_name ($file_size)\n";

}

Kidane fucked around with this message at 00:18 on Mar 23, 2008

Narpas fucked around with this message at 04:43 on Mar 23, 2008

    package Pirate;

    use overload;

    # stole this from some website, add or replace as ye see fit
    my %filter = (
        '\bhello\b'         => 'avast, ye',
        '\bit\'s\b'         => '\'tis',
        '\bthere\b'         => 'thar',
        '\bbetween\b'       => 'betwixt',
        '\bdied\b'          => 'snuffed it',
        'ing\b'             => 'in\'',
        'ings\b'            => 'in\'s',
        '\berror\b'         => 'scallywag',
        '\berrors\b'        => 'scallywags',
        '\bbad\b'           => 'vile',
        '\bwas\b'           => 'was bein\'',
        '\buser\b'          => 'landlubber',
        '\bpassword\b'      => 'secret word',
        '\binvalid\b'       => 'wretched',
        '\bfile\b'          => 'dead man\'s chest',
        '\blogfile\b'       => 'captain\'s log',
        '\byou\b'           => 'ye',
        '\byes\b'           => 'aye',
        '\bno\b'            => 'nay',
        '\bwrite\b'         => 'scribe',
        '\bis\b'            => 'be',
        '\bis not\b'        => 'ain\'t',
        '\bisn\'t\b'        => 'ain\'t',
        '\bserver\b'        => 'serving wench',
        '\bper\b'           => 'fer\' ev\'ry',
        '\bdocument\b'      => 'treasure map',
        '\bfiles\b'         => 'bucket \'o booty',
        '\binformation\b'   => 'loose talkin\'', 
        '\bdata\b'          => 'booty',
        '\band\b'           => '\'n', 
        'rs the\b'          => 'rin\' th\'',

    );

    sub import {
        overload::constant(
            q => sub {
                foreach my $word (keys %filter) {
                    my $target = $filter{$word};
                    $_[1] =~ s/$word/$target/gi;
                }

                return $_[1];
            },
        );
    }

    1;

[~] $ cat test.pl

use Pirate;
print "hello\n";
[~] $ perl test.pl
avast, ye

npe fucked around with this message at 19:01 on Apr 3, 2008

npe fucked around with this message at 02:53 on Apr 4, 2008