Ist das C ?

Ist das hier vom Syntax her C ?

use strict;
my $startdir = "c:/archiv";
my $muster = "Homepagebuilder";
my @resultat = ();

sub Check($) {
  my ($name, @rest) = @_;
  push(@resultat, $name) if ($name =~ /$muster/i);
  return;
}

sub Tree($) {
  my ($aktuell, @rest) = @_;
  opendir(DIR,$aktuell);
  my @dir = readdir(DIR);
  closedir(Dir);
  foreach (sort(@dir)) {
    next if (/^\..*/);
    Tree("$aktuell/$_") if (-d "$aktuell/$_");
    Check("$aktuell/$_");
  }
  return;
}

Tree($startdir);
print "$_\n" foreach (@resultat);
__END__

looks like Perl....

mhhh, was ist denn das für eine blöde frage?
ich würde gern mal den hintergrund wissen...

Acid-Sky

hat aber auch n touch von php...

Einfach nur ob das ein C Code ist oder ob das von einer anderen Sprache kommt ?

TriPhoenix

Original erstellt von <Quest>:
Einfach nur ob das ein C Code ist oder ob das von einer anderen Sprache kommt ?

na dann: wie gesagt es ist Perl. Sieht C ein wenig ähnlich ist aber absolut keines.

Bashar

ausser { }, return und ; seh ich absolut keine Ähnlichkeit zu C. Wer kommt denn auf sowas?

Original erstellt von Bashar:
ausser { }, return und ; seh ich absolut keine Ähnlichkeit zu C. Wer kommt denn auf sowas?

spamm hier nicht rum! :o

Mein Ausbilder meinte das ist C !

TriPhoenix

Original erstellt von <Quest>:
Mein Ausbilder meinte das ist C !

Dann wechsel den Ausbilder SCHNELLSTENS, sofern er irgendwas mit Informatik zu tun haben will

Ja, der hat das studiert !

prolog

Hi

Toller Ausbilder. Naja wenigsten benutzt er das strict pragma.
Is ja schon mal was...