Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
[thread]500[/thread]

Prozess starten und PID bekommen: System

Leser: 1


<< >> 2 Einträge, 1 Seite
Gast Gast
 2005-06-03 17:26
#5020 #5020
Hallo zusammen,

ich bastle an einem perl-script, welches unter anderem weitere (*nix) commands aufruft. bis jetzt hab ich's mit den backets (`) gemacht, und dabei den zurückbekommenen text gelcih ausgewertet. nun brauche ich dazu aber noch die PID des gestarteten Prozesses, um diesen von einem anderes Skript aus zu beenden (ich will den gestartete Prozess killen, und nicht das Perl-Script selber). dabei brauche ich den 'ausgang' des commands aber immernoch..

momentan:
$result = `ssh ... rsync ....`;
[mach was mit result];
print $result;

gesucht:
$result = 'ssh ... rsync ... & ***echo ssh-PID*** > pid.txt';
[mach was mit result];
print $result;



ideen wie ich das schaffe?

Gruss und danke
doggy
renee
 2005-06-03 17:38
#5021 #5021
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
#! /usr/bin/perl

use strict;
use warnings;

my $pid = open(my $fh,"programm |") or die $!;
print $pid,"\n";

while(<$fh>){
print;
}
close $fh;
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
<< >> 2 Einträge, 1 Seite



View all threads created 2005-06-03 17:26.