Help me understand the following two Subroutines

[patelxxx]

Subroutines: set_asset & destination_filename:

Basically I'm looking at some existing code used to upload images/files, can you help me understand exactly what is happening:

sub set_asset {
    my %arg = @_;
    my $customer = $arg{customer};
 
    my $copied = copy(
        $arg{filename},
        $customer->path."/assets/".$arg{destination}
    ) or die "Cannot copy $arg{filename}: $!\n";
 
    my ($number, @error);
    if ($arg{destination} =~ /\.(jpg|gif|jpeg|png|bmp|swf)$/i) {
        ($number, @error) = createThumbnail($arg{folder}, $customer);
    }
    return ($number, @error);
}
 
sub destination_filename {
    my $full_path = shift;
    my @opParts = splitdir $full_path;
 
    my $filename = $opParts[-1];
    $filename =~ tr/ /_/;
 
    return $filename;
}
 

[miller]

Greetings patel,

The hardest thing to recognize is that set_asset accepts parameters in key value pairs. In other words, as a hash. It would be called like this.

set_asset(
    customer    => $customer,
    filename    => $filename,
    destination    => $destination,
    folder        => $folder,
);
 

This is simply a nice way to call subroutines if you have more than 2 parameters. This way the order of the parameters does not actually matter.

What the subroutine does, I leave to you.

The destination_filename sub simply pulls the filename from a full filename path, translates any spaces to underscores, and returns the result.

- Miller