perl split funciton - speciÃ¡lis karakter "/"

deepakwins · #1 (**permalink**) 02-07-2008

HI,
Nekem van egy kÃ¶nyvtÃ¡r struktÃºrÃ¡t. az / abc / def / ghi /
Akarom tÃ¡rolni a tÃ¶mbÃ¶t.
TehÃ¡t, hogy ha Ã©n egy pop funkciÃ³ja, hogy a tÃ¶mb tudok kÃ¶nnyen menni az elÅ‘zÅ‘ kÃ¶nyvtÃ¡rba.
De hogyan oszlik Ã©s tÃ¡rolja azt.

@ Directory \u003d split (/ \ / /, $ DirectoryVarialbe)

Teszed, hogy mÅ±kÃ¶dik. Minden mÃ¡s escape szekvenciÃ¡t kell adni?

Kedves segÃteni.

MobileUser · #2 (**permalink**) 02-07-2008

Szia,
Meg kell jÃ³l mÅ±kÃ¶dnek. PrÃ³bÃ¡ltam a kÃ¶vetkezÅ‘ ...

KÃ³d:

#!/usr/bin/perl -w
use strict;

# Program to accept a file path and store it in a array

my $dir = "/abc/def/ghi/";

my @Dir = split(/\//, $dir);

pop(@Dir);

my $PreviousDir = join("/", @Dir);
print "The original Directory is $dir\n";
print "The new Directory is $PreviousDir\n";

deepakwins · #3 (**permalink**) 02-07-2008

Thakns ez munkÃ¡s!!

Van valami egyszerÅ± mÃ³dszer van a szÃ¼lÅ‘ kÃ¶nyvtÃ¡r.
hasonlÃt a "cd .."??

IdÃ©zet:

Originally Posted by MobileUser

Szia,
Meg kell jÃ³l mÅ±kÃ¶dnek. PrÃ³bÃ¡ltam a kÃ¶vetkezÅ‘ ...

KÃ³d:

#!/usr/bin/perl -w
use strict;

# Program to accept a file path and store it in a array

my $dir = "/abc/def/ghi/";

my @Dir = split(/\//, $dir);

pop(@Dir);

my $PreviousDir = join("/", @Dir);
print "The original Directory is $dir\n";
print "The new Directory is $PreviousDir\n";

fpmurphy · #4 (**permalink**) 02-07-2008

KÃ¶vetkezÅ‘ Perl 5.6.1 test code works for me:

KÃ³d:

#!/usr/local/bin/perl -w

my $DirectoryVariable="/abc/def/ghi";

my @Directory = split(/\//, $DirectoryVariable);

print "@Directory";

HPAVC · #5 (**permalink**) 02-07-2008

IdÃ©zet:

Originally Posted by deepakwins

Teszed, hogy mÅ±kÃ¶dik. Minden mÃ¡s escape szekvenciÃ¡t kell adni?
Kedves segÃteni.

deepakwins · #6 (**permalink**) 02-08-2008

IdÃ©zet:

Originally Posted by HPAVC

Thanks for your reply. Az escape szekvencia mÅ±kÃ¶dÃ¶tt. Kezdetben sikerÃ¼lt betÃ¶lteni a tÃ¶mb nÃ©lkÃ¼l is spliting terÃ¼leteken a sclar vÃ¡ltozÃ³. Ez volt egy kÃsÃ©rlet a nyomvonal Ã©s a hiba. Most mÃ¡r elfelejtettem, hogyan csinÃ¡ltam, hogy mÃ©gis.

TÃ¶bb, UNIX Ã©s Linux fÃ³rum tÃ©mÃ¡k Ã–n Ã¡ltal talÃ¡lt Hasznos
SzÃ¡l	Thread Starter	FÃ³rum	VÃ¡laszok	UtolsÃ³ hozzÃ¡szÃ³lÃ¡s
hogyan oszthatjÃ¡k speciÃ¡lis karakterek "\|" segÃtsÃ©gÃ©vel awk	krishna9	Shell programozÃ¡s Ã©s Scripting	3	05-22-2008 07:30 AM
Ismertesse az "mn_code \u003d` env \| grep ".. mn \| awk-F" \u003d " '(print $ 2)'" "	Lokesha	A UNIX a dummies KÃ©rdÃ©sek Ã©s vÃ¡laszok	4	12-20-2007 01:52 AM
split a string "Setview: arv hÅ‘mÃ©rsÃ©kletÅ±-view"	amitrajvarma	Shell programozÃ¡s Ã©s Scripting	2	10-11-2007 06:14 AM
tÃ¶rlÃ©se Ãºjsor karakter, de nem az "igazi" \ n karakter	caddyjoe77	Shell programozÃ¡s Ã©s Scripting	1	08-15-2007 11:21 PM
Perl - Split with "\|"	lumdev	Shell programozÃ¡s Ã©s Scripting	3	02-04-2007 02:14 PM

TÃ©ma eszkÃ¶zÃ¶k	KeresÃ©s a tÃ©ma
Show NyomtathatÃ³ verziÃ³ KÃ¼ldÃ©s e-mailben	KeresÃ©s a tÃ©ma: RÃ©szletes keresÃ©s
MegjelenÃtÃ©si mÃ³dok	Rate this thread
VÃ¡ltÃ¡s Linear Mode Hibrid Ã¼zemmÃ³d Switch to Threaded Mode	Rate this thread:


	Powered by