Thread (Message) | Date | Author |
Score |
Board |
Wenn Perl-Skript beendet wird, Subroutine noch ausführen
(#163554) |
2012-11-23 11:55 |
GUIfreund
|
 |
Allgemeines zu Perl |
Wenn du in [c]sub get_time_now[/c]
[c]return sprintf ...[/c]
benutzt, kannst du dir die vielen if's sparen und die sub wird deutlich kürzer und lesbarer. |
|
Wenn Perl-Skript beendet wird, Subroutine noch ausführen
(#163407) |
2012-11-20 13:07 |
topeg
|
 |
Allgemeines zu Perl |
Es gibt [c]sub END{ ... }[/c] Das ruft Perl auf Wenn der Prozess zu Ende ist. Leider Funktioniert das nur bedingt wenn er Prozess von Außen beendet wird. Probiere es aus. |
|
Wenn Perl-Skript beendet wird, Subroutine noch ausführen
(#163405) |
2012-11-20 13:00 |
Raubtier
|
 |
Allgemeines zu Perl |
Suche mal ein bisschen nach WM_CLOSE (sollte ans übergeordnete Fenster gesendet werden). Mit Win32::Api und Wiun32::GUI sollte sich da was machen lassen. |
|
Variable Anzahl an Array-Zeilen an Subroutine übergeben
(#160592) |
2012-08-03 16:55 |
Muffi
|
 |
Allgemeines zu Perl |
Und warum willst dus nochmal häppchenweise haben?
Weil mit [code=perl]@allrows= <$file>[/code]
hast du eh schon alles im Speicher |
|
Starten einer Subroutinen mit Parameter aus einer Variable
(#111686) |
2008-06-30 14:13 |
moritz
|
 |
Allgemeines zu Perl |
Soweit ich weiss bietet Tk dafür eine eigene Syntax, wenn ich mich richtig erinnere mit Array-References:
[perl]$mw->bind($event, [$subname, $arguments]);[/perl]
Ansonsten kannst du immer noch… |
|
bei langen Subroutinen bleibt alles stehen: - Nebenläufigkeit mit fork()? -
(#81899) |
2004-04-28 21:00 |
ptk
|
 |
Allgemeines zu Perl |
Variablen, die zur Zeit des forks definiert sind, sind auch im neuen Prozess sichtbar. Somit kannst du auf einfache Weise Parameter uebergeben. |
|
bei langen Subroutinen bleibt alles stehen: - Nebenläufigkeit mit fork()? -
(#81900) |
2004-04-29 23:07 |
guest Gast
|
 |
Allgemeines zu Perl |
Danke!
Es klappt soweit schon ganz gut, allerdings ist dieses Prozesshandling / IPC ziemlich schwer zu durchsteigen (und z.T. auf WIN32 - Systemen nur ausreichend implementiert).
Greetz, Anti |
|
Variable Anzahl an Array-Zeilen an Subroutine übergeben
(#160593) |
2012-08-03 17:09 |
norvel
|
 |
Allgemeines zu Perl |
Weil der SQL Query nicht übermäßig lang sein kann, IN Statements sind auf 1000 Einträge begrenzt.
PS: Ich würde eine Lösung ohne ein Modul vorziehen, da die Lösung ohne großen Aufwand auch auf… |
|
Variable Anzahl an Array-Zeilen an Subroutine übergeben
(#160595) |
2012-08-03 17:13 |
Linuxer
|
 |
Allgemeines zu Perl |
Das Argument zählt nicht wirklich. Es gibt reichlich Perl-Module, die "Pure Perl" sind. Die lassen sich problemlos weiterreichen und laufen auch auf dem nächsten System... |
|
Variable Anzahl an Array-Zeilen an Subroutine übergeben
(#160596) |
2012-08-03 17:14 |
Muffi
|
 |
Allgemeines zu Perl |
Ah, kapiert.
[code=perl]
sub naechstes_paket {
my $handle = shift;
my @lines = ();
while (@lines < 10) {
my $line = <$handle>;
last unless $line;
push… |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72504) |
2006-12-13 15:26 |
nepos
|
 |
Allgemeines zu Perl |
Warum nicht so:
[perl]unless(open (my $fh1, '<', "$file1")) { ... Fehlerbehandlung ...}[/perl] |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72505) |
2006-12-13 15:28 |
renee
|
 |
Allgemeines zu Perl |
Ungetestet (nur mal so ne Überlegung):[code]MYLOOP: while ( 1 ) {
open my $fh1, '<', "$file1" or foobar($file1) and next;
# irgendeine Verarbeitung
close $fh1;
open my $fh2, '<', "$file2"… |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72507) |
2006-12-13 15:57 |
bloonix
|
 |
Allgemeines zu Perl |
[quote=nepos,13.12.2006, 14:26]Warum nicht so:
[perl]unless(open (my $fh1, '<', "$file1")) { ... Fehlerbehandlung ...}[/perl][/quote]
Das wäre das gleiche... was in do { ... |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72508) |
2006-12-13 16:09 |
bloonix
|
 |
Allgemeines zu Perl |
[quote=renee,13.12.2006, 14:28]Ungetestet (nur mal so ne Überlegung):
[code]MYLOOP: while ( 1 ) {
open my $fh1, '<', "$file1" or foobar($file1) and next;
# irgendeine Verarbeitung
close… |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72510) |
2006-12-13 16:26 |
renee
|
 |
Allgemeines zu Perl |
[code]my %messages = (
1 => 'cannot connect to server',
2 => 'unable to send data',);
$socket->connect() or logging($socket,$logger,$messages{1})
and next;
sub logging{… |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72511) |
2006-12-13 16:32 |
renee
|
 |
Allgemeines zu Perl |
… wenn Du Methoden generisch aufrufen willst:[code]#!/usr/bin/perl
use strict;
use warnings;
use CGI;
MYLOOP: for(0..10){
$_ % 2 or test(CGI->new, 'header') and next;
print $_,"\n";
}
sub… |
|
next LABEL in Subroutinen: gibt es feinere Lösungswege?
(#72512) |
2006-12-13 19:54 |
bloonix
|
 |
Allgemeines zu Perl |
[quote=renee,13.12.2006, 15:26][code]my %messages = (
1 => 'cannot connect to server',
2 => 'unable to send data',);
$socket->connect() or logging($socket,$logger,$messages{1})… |
|
Modul: Methode und Subroutine mit dem gleichen Namen
(#173544) |
2014-02-14 20:00 |
Raubtier
|
 |
Allgemeines zu Perl |
Deine erste sub wird nie aufgerufen. Pack da doch mal ein say "hallo" rein - das wirst du nie sehen.
Mit $self = shift; bekommst du einmal die Referenz auf die Klasse, einmal eben die 4. |
|
Modul: Methode und Subroutine mit dem gleichen Namen
(#173542) |
2014-02-14 19:09 |
Kuerbis
|
 |
Allgemeines zu Perl |
Hallo!
Ich habe versucht [mod]Term::Choose[/mod] nach OO umzuschreiben.
Dabei möchte ich den bisherigen Aufruf [c]my $choice = choose( [1,2,3] );[/c] beibehalten und die neue Methode auch… |
|
Variable Anzahl an Array-Zeilen an Subroutine übergeben
(#160608) |
2012-08-03 18:38 |
Raubtier
|
 |
Allgemeines zu Perl |
Der Ansatz, immer nur N Zeilen zu lesen, ist exakt derselbe. Die Lösung dazu, die Muffi hier gepostet hat, ist fast dieselbe, die ich auch in der verlinkten Nachricht gepostet hatte. |