• prompt the user for a directory,

  Look at perlfunc:print to prompt the user and perlop under "i/o operators" to retrive his answer.

• read the files from that directory,

  perlfunc:readdir or perlfunc:glob to obtain the list of files.

  Or some prefer to use File::Find which is a part of (the?)/my standard Perl distribution

• create a sub-directory,

  perlfunc:mkdir to create the new directory.

• and copy all the files into that sub directory?

  Module File::Copy (also standard) will take care of the copying for you.

Come back with your code if you run into specific problems. Good luck.

Examine what is said, not who speaks.

None of this is actualy complicated. It's all a matter of taking a bunch of simple things and putting them together.

"Prompt the user for a directory": print, <>.

"Read the files from that directory": glob('*'), or opendir(), readdir(), ...

"Create a sub-directory": mkdir

"copy all the files into that sub directory": `cp`, or open, etc, etc

• Input/Output
• open(), opendir()
• system()

1. Read Documentation
2. Ask Question

My apologies..
I'm using Windows 2000, ActiveState Perl version 5.6.1 if you
need to know that too.

Here is my current coding:



#!/usr/bin/perl
# Import Modules #

use File::Copy;
use Image::Magick;
use File::Find;

# Prompt for Directory #

print "Enter Directory: ";
chomp($dir = <STDIN>);

# Find Images #

find(\&mogrify, $dir);

# Resize Images #
# Write to thumbnails directory #
# With same filename extension #

sub mogrify {
        $img = Image::Magick->new;
        $img->Read($_);

# Test for Extensions #

        if ($_ =~ /\.(\w+)$/) {
              $ext2 = $1;
          }
        my $ext = $ext2;

        $img->Resize('geometry' => "120x120", 'filter' => "Cubic");
        $img->Write("$_"."-thumb"."\.$ext2");
}


# Make the directory of thumbnails #
system("mkdir thumbnails");

# Move all thumbnails to the thumbnails directory #
system("move *thumb*.*, thumbnails");
[download]


Sorry if the indentation's bad....

Is any of this the correct way to do it?

Thanks,
~firstbaseman83

and In reply to freopalus,
I read the documentation for eveything
I could think of but I couldn't find my exact
answer.
~firstbaseman83

@list = grep {! /^\.+/} @list;
[download]