Problem z exec...pilne

Thread View: pl.comp.lang.perl

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by Jerzy Orzeszek Tue, 07 Apr 1998 13:32

#1196

Author: Jerzy Orzeszek
Date: Tue, 07 Apr 1998 13:32

38 lines
1521 bytes

Cześć,
piszę skrypcik dalej i mam pytania:

chcę skopiować plik z jednego katalogu do drugiego ale tak:
skrypt pyta się usera: (S-skrypt , U-user)
S:Podaj nazwe pliku:
U:plik.txt
S:Podaj katalog docelowy:
U:/home/user
P:Kopiuje plik

A mam coś takiego:

$katalog_start = "/home/user1";
$katalog_end = "/home/user1";

print "Podaj nazwe pliku:\n";
	$p = <SDTIN>;
exec "cp $katalog_start/$p $katalog_end";

print "Gotowe! \n";
exec "ls -l /$katalog_end/$p";


Czy to jest dobre?
U mnie nie działa.
Czy jest możliwość zrobienia w prosty sposób ramek dookoła tekstu?

Jerzy

-- 
*****************************************************************
*           Dział Internetu Univ-Comp Sp. z o.o.		*
* 	 Jerzy Orzeszek  http://www.univcomp.waw.pl		*
*              Jerzy.Orzeszek@univcomp.waw.pl			*
*              tel.22-6937156 fax.22-693-6333			*
*                        ICQ:10066093 				*
*****************************************************************

Re: Problem z exec...pilne

#1197

Author: Piotr Piatkowski
Date: Tue, 07 Apr 1998 13:39

30 lines
1399 bytes

Jerzy Orzeszek <Jerzy.Orzeszek@univcomp.waw.pl> wrote:
: A mam coś takiego:

: $katalog_start = "/home/user1";
: $katalog_end = "/home/user1";

: print "Podaj nazwe pliku:\n";
: 	$p = <SDTIN>;
: exec "cp $katalog_start/$p $katalog_end";

: print "Gotowe! \n";
: exec "ls -l /$katalog_end/$p";


: Czy to jest dobre?
: U mnie nie działa.

RTFM!!! man perlfunc:

  exec LIST
    The exec() function executes a system command AND
    NEVER RETURNS, unless the command does not exist and
    is executed directly instead of via /bin/sh -c (see
    below).  Use system() instead of exec() if you want
    it to return.

To chyba nie wymaga dodatkowego komentarza?

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Re: Problem z exec...pilne

#1198

Author: Grzegorz BRZESKI
Date: Tue, 14 Apr 1998 17:07

12 lines
892 bytes

Jerzy Orzeszek wrote:
> 
> Czy to jest dobre?
> U mnie nie dzia³a.

I nie powinno dzialac. Po pobraniu z STDIN zminnej $p zawiera ona na
koncu "\n" co nie jest czescia nazwy pliku.

Z pozdrowieniami,

--
Grzegorz BRZESKI - WEB Corporation Polska Sp. z o.o.

Re: Problem z exec...pilne

#1199

Author: Jerzy Orzeszek
Date: Wed, 15 Apr 1998 09:39

47 lines
1891 bytes

Czyli powinno być:
print "Podaj nazwę:\n";
chop($p = <STDIN>);
exec( "cp $$katalog_zrodlowy/$p $katalog_docelowy");

I tak mi działa.
A teraz mam pytanie jeszcze jedno:
Co zrobić aby ten programik zatrymywał się po każdej czynności i czekał
na wprowadzenie nowych danych prze usera i wykonywał odpowiednie
czynności?
Tzn 
1.Zrob tak
=user wprowada dane
+program wykonuje sie  podanymi danymi
2.Zrób teraz tak
=user wprowada dane
+program wykonuje sie  podanymi danymi
itd.

Probowalem użyć label-i, ale coś mi nie wychodzi.

Jerzy


Grzegorz BRZESKI wrote:
> 
> Jerzy Orzeszek wrote:
> >
> > Czy to jest dobre?
> > U mnie nie działa.
> 
> I nie powinno dzialac. Po pobraniu z STDIN zminnej $p zawiera ona na
> koncu "\n" co nie jest czescia nazwy pliku.
> 
> Z pozdrowieniami,
> 
> --
> Grzegorz BRZESKI - WEB Corporation Polska Sp. z o.o.

-- 
*****************************************************************
*           Dział Internetu Univ-Comp Sp. z o.o.		*
* 	 Jerzy Orzeszek  http://www.univcomp.waw.pl		*
*              Jerzy.Orzeszek@univcomp.waw.pl			*
*              tel.22-6937156 fax.22-693-6333			*
*                        ICQ:10066093 				*
*****************************************************************

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads