Textdatei mit externem Editor öffnen (Seite 2) (Allgemeines zu Perl)

Gast Gast

2007-11-27 18:14

also bei start() hab ich aber noch ein kleines prob.

Ich kann die Datei, die er öffnen soll, irgendwie nicht übergeben.

Code (perl): (dl )

use IPC::Run qw(start pump finish);

 my $location = "./test.txt";
 my @prog = "kate";
 start \@prog, \$location;

wenn ich das mache, dann öffnet sich zwar kate, aber nur mit einem leeren Dokument und in der Konsole steht dann "QFile::open: No file name specified"

ptk

2007-11-26 21:31

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

@Gast: hast du meinen Vorschlag befolgt?

Gast Gast

2007-11-27 16:35

@ptk: Wie bist du darauf gekommen system() mit einer 1 am Anfang ( Win32 ) aufzurufen?
Habs bei mir gerade mal ausprobiert, das funktioniert ja ausgezeichnet!

MfG Horst

Gast Gast

2007-11-27 16:47

Zu IPC::Run: RTFM...
Benutze start() anstatt run() um den Prozess im Hintergrund ablaufen zu lassen.

MfG Horst

Gast Gast

2007-11-27 19:39

Gast+2007-11-27 17:14:51--
also bei start() hab ich aber noch ein kleines prob.

Ich kann die Datei, die er öffnen soll, irgendwie nicht übergeben.
Code (perl): (dl )
1
2
3
4
5
use IPC::Run qw(start pump finish);

 my $location = "./test.txt";
 my @prog = "kate";
 start \@prog, \$location;
wenn ich das mache, dann öffnet sich zwar kate, aber nur mit einem leeren Dokument und in der Konsole steht dann "QFile::open: No file name specified"

Mit start() sollte es folgendermaßen funktionieren:

Code: (dl )

start( "kate", $location );

Also ohne Arrayreferenz.
Abgesehen davon enthällt dein code noch einen gravierenden Syntaxfehler: Die Klammern um "kate" fehlen.

MfG Horst

ptk

2007-11-27 23:20

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Gast+2007-11-27 15:35:00--
@ptk: Wie bist du darauf gekommen system() mit einer 1 am Anfang ( Win32 ) aufzurufen?
Habs bei mir gerade mal ausprobiert, das funktioniert ja ausgezeichnet!

Das steht in perldoc perlport unter system:

Quote
As an optimization, may not call the command shell specified in
$ENV{PERL5SHELL}. "system(1, @args)" spawns an external
process and immediately returns its process designator, without
waiting for it to terminate. ... (Win32)

Gast Gast

2007-11-28 16:21

War mir bis heute tatsächlich unbekannt.
Werds mir merken und wohl selber mal genauer die Doku lesen :) ( siehe mein RTFM oben... )

MfG Horst