basename & dirname in Perl

Minimiscience (Guildorn Tanaleth) — Fri, 06 Jul 2007 05:49:34 GMT

These two Perl functions implement approximations of the UNIX utilities `basename` and `dirname`, though basename() automatically strips off the last extension no matter what.

sub basename($) {

 my $file = shift;

 $file =~ s!^(?:.*/)?(.+?)(?:\.[^.]*)?$!$1!;

 return $file;

}



sub dirname($) {my $file = shift; $file =~ s!/?[^/]*/*$!!; return $file; }

Image aggregator

Minimiscience (Guildorn Tanaleth) — Thu, 05 Jul 2007 04:08:17 GMT

This PHP snippet outputs the contents of a table (beginning & ending tags not included) containing all the images from the current directory.

 $columns = 3;

 $im = glob("*.{gif,jpg,png}", GLOB_BRACE);

 $rows = ceil(count($im) / $columns);

 for ($i = 0; $i < $rows; $i++) {

  echo "\n";

  for ($j = $columns*$i; isset($im[$j]) && $j - $columns*$i < $columns; $j++) {

   echo "$im[$j]
";

  }

  echo "";

 }

?>

DZone Snippets: directory code

basename & dirname in Perl

Image aggregator