Perl:ファイルD&Dで起動

2014-07-07 :  PCクリニック
本文の前に、
-・・・ -・-
現時点での、blogramのランクインカテゴリは、
3、3、1、2、 0、0、0、0、0(41)で、換算ポイント 68pt 。
特段のランク変動は無し?
・-・ - -・

さて、本文。

(Python に限らないと思っていたが・・・)

3ヶ月前(2014-04-29)の記事:
ファイルD&DでAP起動
そして、
先月(2014-06-14)の記事:
ファイルD&DでAP起動(改)
で、
(処理対象)ファイルのアイコンを、
Pythonプログラム(のアイコン)に、
ドラッグ&ドロップして、
処理を行わせる。
ことが出来た。

ここにきて、(未だゲンエキの)
「Perl」でも、やってみたくなった。

Python での最終形:
  ・・・・・
  前回の
  「ファイルD&DでAP起動
  の改訂版。
  こんな、(例えば)「test.py」を作る。

import os
import sys

print sys.argv[1]
os.chdir( sys.path[0] )
print os.getcwd()

_ = raw_input()


  この
  test.py アイコンに、
  なにがしかのファイルを「ドラッグ&ドロップ」すると、
  D&Dしたファイル名を(フルパス名で)表示し、
  続けて、プログラムのカレント・ディレクトリを表示し、
  キーボード入力待となる。
  ことになりますね。
  ・・・・・

これに合わせて、
こんな、「test.pl」を作る。

$fname = $ARGV[0];
print $fname,"\n"; # D&Dしたファイル名
$a=<STDIN>


この
“test.pl”アイコンに、
なにがしかのファイルを「ドラッグ&ドロップ」すると、
D&Dしたファイル名を(フルパス名で)表示し、
キーボード入力待となる。

ことになりますネ。

やってみた。ン???

起動しない。
ドラッグ&ドロップしたアイコンがその場所に移っただけ???

これではダメ? の様です。


しかたが無いので、一つ前の方式に戻って、・・・

こんな、

@echo off
%~dp0\test.pl %1


2行だけの、「test.bat」を作り、
「test.pl」と同じ場所に置いた。

これだと、
test.bat アイコンに、
なにがしかのファイルを「ドラッグ&ドロップ」すると、
D&Dしたファイル名を(フルパス名で)表示し、
キーボード入力待となる。

ことになりますネ。

しか~し、
起動はするが、何も表示しない???
(キーボード入力待ちだが。)

理由/原因を調べてみると、
引数が渡っていない???
これもダメか?


気を取り直して、Web検索。

「I'm a Bomb!」さんの 2009-02-05 記事:
perlスクリプトをドラッグ&ドロップで実行する
  処理対象ファイルをバッチファイルにドラッグ&ドロップすると、
  そのファイルを引数にしてperlスクリプトが実行される。
  ・・・・・
があった。

そこでは、
こんなバッチファイルを作っていた。

rem "myscript.pl"を書き換えてご使用ください
echo off
cd /d %0\..
perl myscript.pl %1
pause



<紙>との違いは、“cd”しているコト?
いや、“perl”を指定していることも。


そこで、上記“test.bat”を書き替えてみた。

@echo off
cd /d %0\..
perl test.pl %1


今度は3行。

この“test.bat”アイコンに、
なにがしかのファイルを「ドラッグ&ドロップ」すると、
D&Dしたファイル名を(フルパス名で)表示し、
キーボード入力待となる。

ことになりました。


因みに、(当然の事でしょうが)
“カレント・ディレクトリ”は、当該場所に成っている。


これで、やっと完成。


本日はここまで。


再び、Python 学習に戻る?


見ていただいた序でとは厚かましい限りですが、
お帰りに投票して頂けるとなお嬉しいです。 ⇒ blogram投票ボタン


140703
関連記事
スポンサーサイト

コメントの投稿

管理者にだけ表示を許可する

おきてがみ/blogram
blogram投票ボタン



おきてがみ

最新記事
カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
月別アーカイブ
カテゴリ
最新コメント
検索フォーム
リンク
プロフィール

<紙>

Author:<紙>
ようこそ。
「パソコンヲタクの雑記帳」
もろもろなことを綴っています。
パソコン ヲタクってねくら?
画像は kami でなく kani です。

カウンター(fc2、i2i) /Google Analytics


i2i(from 2010-08-24)
Total =
Today  =  
Yesterday=
アンチエイジング

Google Analytics
ブックマーク