$1 mit mkdir

[Horst]

Hallo

Wisst Ihr ob folgendes möglich ist:

Bisher geht es so:
$SelectZ = "äöüß?$;,:=%!-";

$zeig = "
#Bericht1
#Bericht2";

$zeig =~ s/^ //i;
$zeig  =~s/# /#/gi;
$zeig  =~s/ /-/gi;
$zeig  =~s/-#/#/gi;
$zeig =~s/#([\w$SelectZ]+)/$1<BR>/gi;

$zeig =~s/#([\w$SelectZ]+)/$1<BR>/gi;

Nun möchte ich aber  das es nicht jedes $i in <BR> ausgibt,
sondern jedes $i mit  mkdir("$i",0750); anlegt.

Vielen Dank für eventuelle Hilfe

Horst

[Patrick Andrieu]

Hallo Horst!

$zeig =~s/#([\w$SelectZ]+)/$1<BR>/gi;

Nun möchte ich aber  das es nicht jedes $i in <BR> ausgibt,
sondern jedes $i mit  mkdir("$i",0750); anlegt.

Eine Ersetzung (substitition, daher das »s«) braucht diese Syntax:

$foo =~ s/suchmuster/ersetzungsmuster/flag(s);

Mit dem Flag »e« (für »execute«) kannst Du im Ersetzungsmuster eine Funktion einsetzen (http://de.selfhtml.org/perl/sprache/regexpr.htm#suchen_ersetzen).

Viele Grüße aus Frankfurt/Main,
Patrick

[Christian Kruse]

你好 Horst,

Nun möchte ich aber  das es nicht jedes $i in <BR> ausgibt,
sondern jedes $i mit  mkdir("$i",0750); anlegt.

Dann geh die Fundstellen mit einer Schleife durch und lege sie dann mit mkdir() an. Etwa so:

  
@found = $zeig =~ /#([\w$SelectZ]+)/g;  
  
mkdir($_,0755) foreach(@found);  

再见,
 克里斯蒂安