Perl Profi gesucht!!!

[Apache-User]

hallo liebe forum user...

ich bin auf der suche nach jemanden der Perl programmierung beherscht... und zwar sitze ich gerade an einem script und hab eigentlich null plan von perl oder was ich da überhaupt mache...

es geht um folgendes ich muss wissen wie ich einen strig trimen kann bzw. daten in einem string teilweise ersetzen kann.

bsp.: in $x steht zb. "blablabla: xxxx" nun müsste ich das blablabla wegbekommen so das in dem string nur noch xxxx steht bei PHP machi sowas mit der trim funktion aber in perl?

oder es steht "blabla: x Days, x Hours, x Minutes, x Seconds" im string nun müsste erst das blabla: weg und danach müsste das Days usw. noch in zb. T, Std, Min, Sek, umgewandelt werden das mach ich in PHP mit eregi_replace aber in perl?

ich hoffe hier gibt es eine schlauen kopf der mir mal schnell auf die sprünge hilft

thx schonmal

[Apache-User]

hat sich erledigt ich habs geschafft

[DJ DHG]

Moin Moin

solche posts liebe ich. D-A-U du hast auch schon mal hier da und gemeckert
das die lösung nicht mit angegeben wurden. und des wegen mache ich das
jetzt auch mal bei dir

mfg DJ DHG

[Apache-User]

okok Chef wenns dich wirklich so brennent interesiert hier das script..

Code: Select all

##########################################
##    System Script for X-Chat Win32    ##
##                                      ##
##        (c)2004 Apache-User           ##
##          irc.kwm-web.info            ##
##                                      ##
##     apache-user@puplic-files.de      ##
##########################################


# Script name & version
my $SCRIPTNAME = "System Status Script for X-Chat Win32";
my $VERSION = "Version 0.2";

# Script in X-Chat Perl regestrieren
IRC::register($SCRIPTNAME,$VERSION,"","");

# Script geladen
IRC::print("Loaded $SCRIPTNAME $VERSION \n");
IRC::print("Usage: /sys | /os | /date | /upt | /cpu | /ramt | /ramf");

# X-Chat Befehle einfügen
IRC::add_command_handler("os", "OS::Handler");
IRC::add_command_handler("date", "Date::Handler");
IRC::add_command_handler("upt", "Uptime::Handler");
IRC::add_command_handler("cpu", "CPU::Handler");
IRC::add_command_handler("ramt", "RAMt::Handler");
IRC::add_command_handler("ramf", "RAMf::Handler");
IRC::add_command_handler("sys", "SYS::Handler");

# OS
sub OS::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $osline = "@output[2]";
   $osline =~ s/.*://;
   $osline =~ s/://;
   $osline =~ s/^\s*//;

 # Output
 IRC::command("OS: $osline");

close(CMD);

 return 1;
 
}

# Install Date
sub Date::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $dateline = "@output[10]";
   $dateline =~ s/.*m//;
   $dateline =~ s/://;
   $dateline =~ s/^\s*//;



 # Output
 IRC::command("Installed: $dateline");

close(CMD);

 return 1;
 
}

# Uptime
sub Uptime::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $upline = "@output[11]";
   $upline =~ s/.*://;
   $upline =~ s/://;
   $upline =~ s/Tage,/T,/;
   $upline =~ s/Stunden,/Std,/;
   $upline =~ s/Minuten,/Min,/;
   $upline =~ s/Sekunden/Sek/;
   $upline =~ s/^\s*//;



 # Output
 IRC::command("Uptime: $upline");

close(CMD);

 return 1;
 
}

# CPU
sub CPU::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $cpuline = "@output[16]";
   $cpuline =~ s/.*://;
   $cpuline =~ s/://;
   $cpuline =~ s/x86 Family 15 Model 2 Stepping 7 GenuineIntel//;
   $cpuline =~ s/^\s*//;


 # Output
 IRC::command("CPU: Intel Pentium 4 $cpuline");

close(CMD);

 return 1;
 
}

# RAM Total
sub RAMt::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $ramtline = "@output[24]";
   $ramtline =~ s/.*://;
   $ramtline =~ s/://;
   $ramtline =~ s/^\s*//;


 # Output
 IRC::command("Total RAM: $ramtline");

close(CMD);

 return 1;
 
}

# RAM Free
sub RAMf::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $ramfline = "@output[25]";
   $ramfline =~ s/.*://;
   $ramfline =~ s/://;
   $ramfline =~ s/^\s*//;


 # Output
 IRC::command("Free RAM: $ramfline");

close(CMD);

 return 1;
 
}


# System all outputs
sub SYS::Handler {

open(CMD, "Systeminfo.exe|")
or die "Fehler: $! \n";
@output=<CMD>;
chomp(@output);

my $osline = "@output[2]";
   $osline =~ s/.*://;
   $osline =~ s/://;
   $osline =~ s/^\s*//;

my $dateline = "@output[10]";
   $dateline =~ s/.*m//;
   $dateline =~ s/://;
   $dateline =~ s/^\s*//;

my $upline = "@output[11]";
   $upline =~ s/.*://;
   $upline =~ s/://;
   $upline =~ s/Tage,/T,/;
   $upline =~ s/Stunden,/Std,/;
   $upline =~ s/Minuten,/Min,/;
   $upline =~ s/Sekunden/Sek/;
   $upline =~ s/^\s*//;

my $cpuline = "@output[16]";
   $cpuline =~ s/.*://;
   $cpuline =~ s/://;
   $cpuline =~ s/x86 Family 15 Model 2 Stepping 7 GenuineIntel//;
   $cpuline =~ s/^\s*//;

my $ramtline = "@output[24]";
   $ramtline =~ s/.*://;
   $ramtline =~ s/://;
   $ramtline =~ s/^\s*//;

my $ramfline = "@output[25]";
   $ramfline =~ s/.*://;
   $ramfline =~ s/://;
   $ramfline =~ s/^\s*//;

my $pcline1 = "@output[12]";
   $pcline1 =~ s/.*://;
   $pcline1 =~ s/://;
   $pcline1 =~ s/^\s*//;

my $pcline2 = "@output[14]";
   $pcline2 =~ s/.*://;
   $pcline2 =~ s/://;
   $pcline2 =~ s/^\s*//;

my $pcline3 = "@output[13]";
   $pcline3 =~ s/.*://;
   $pcline3 =~ s/://;
   $pcline3 =~ s/^\s*//;

 # Output
 IRC::command("$pcline1 $pcline2 $pcline3 Running $osline, Installed: $dateline, Uptime: $upline, CPU: Intel Pentium 4 $cpuline, Total RAM: $ramtline, Free RAM: $ramfline");

close(CMD);

 return 1;
 
}


hoffe du wirst schlau daraus :p

[DJ DHG]

hoffe du wirst schlau daraus :p

noch nicht, aber PERL ist auch nicht meine sprache

mfg DJ DHG