This script must open folder, and I must view empty opened folder...!!!
I work in "Far manager".
Now this script only create folder...
Expand|Select|Wrap|Line Numbers
- @rem = '--*-Perl-*--
- @echo off
- if "%OS%" == "Windows_NT" goto WinNT
- perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
- goto endofperl
- :WinNT
- perl -x -S %0 %*
- if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
- if %errorlevel% == 9009 echo You do not have Perl in your PATH.
- if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
- goto endofperl
- @rem ';
- #!/usr/bin/perl
- use warnings;
- use strict;
- use File::Path;
- use Cwd;
- use File::Copy;
- use File::Spec::Functions;
- #hardcoded
- my $FP = 'Y:\graphics_qc';
- my $TP = 'Y:\plot_db';
- my ($from_file, $to_file) = ($ARGV[0], $ARGV[0]);
- my $cwd = `cd`;
- chomp $cwd;
- my ($from_dir, $to_dir) = ($cwd, $cwd);
- #rename dir part
- $to_dir =~ s/^\Q$FP\E/$TP/;
- mkpath($to_dir);
- chdir $to_file;
- exit 0;
- __END__
- :endofperl
Viki