#!/usr/bin/perl
use warnings;
use strict;


for my $file (glob '*.mobi *.prc *.epub') {
    my ($ext) = $file =~ /\.(.*)/;
    if ($ext =~ /mobi|prc/i) {
        my $status = system qw{ kindletool.exe strip_source }, $file;
        warn "Failure $status: $file" if $status;

    } elsif (lc $ext eq 'epub') {
        (my $newname = $file) =~ s/\.epub$/.zip/;
        rename $file, $newname or warn "Failure $!: $file";
    }
}
[download]

For details, see glob, system, lc, rename.

thanks a lot for the help. What I meant was, the kindletool.exe tool will be kept in a particular path. Ex : C:\Users\user\Desktop\Convert. So this code which is given, will run from bin folder of perl. I want to run it on the above mentioned path.

Ignore my reply !! I figured it out...i was bit confused :) now its clear..one more help, when the code is done running, I should get a message saying " Do u want to continue? Press Y to run the program again or press N to exit"

See chdir, -f or glob, system and rename.

Where exactly do you have problems in porting the C# code to Perl?

I dont know perl..that's where the problem is :P ..I'm trying to lean it ..but i have a bit of time constrain to finish it..

The code which u gave works perfectly fine.. I just need the below message to display: "Do you want to continue? Press Y to continue and N to exit"

We're here to help you learn; not to do it for you.

With that in mind, try to learn by reading Getting user input and answers. You might want to find other nodes related to your question by using Super Search or your favorite search engine with terms like "prompt user" (among many other possibilities).




Spirit of the Monastery