| Thread (Message) | Date | Author |
Score |
Board |
|---|
| Filehandler als Parameter an Subroutine übergeben
(#4189) |
2005-01-21 19:44 |
Strat
|
 |
Perl/CGI |
| nebenbei: bei flock die werte, die das betriebssystem erwartet, direkt zu uebergeben kann unter einem anderen betriebssystem fehlschlagen, wenn dort andere werte vorkommen... |
|
| Filehandler als Parameter an Subroutine übergeben
(#4190) |
2005-01-21 22:30 |
betterworld
|
|
Perl/CGI |
| Hallo,
so geht es auch:
[code]use strict;
use warnings;
sub lock(*$){
flock($_[0],$_[1]);
}
my $file="foo";
my $text="hallo";
open(FH, ">$file") or die $!;
lock (FH,2);
print FH $text;
lock FH… |
|
| Perl mit Kommandozeilenprogramm kommunizieren (Windows)
(#170417) |
2013-09-19 18:47 |
bianca
|
|
Allgemeines zu Perl |
| Constant subroutine IPC::Run::Win32_MODE redefined at t/windows_searc
h_path.t line 11.
t/windows_search_path.t ...... ok
All tests successful. |
|
| Leerzeichen-Regex lässt StackExchange ausfallen?
(#185144) |
2016-07-26 12:04 |
clms
|
|
Allgemeines zu Perl |
| … 0
[/code]
und mit 5.8.8
[code]Subroutine Benchmark::mytime redefined at /usr/lib/perl5/5.8.8/Benchmark.pm line 459.
timethis 100000: 23.9664 wallclock secs (23.95 usr + 0.01 sys = 23.96 CPU) @… |
|
| Getopt::Long - GetOptions - Übergabeparameter ist Leerstring
(#172498) |
2013-12-09 08:14 |
Linuxer
|
|
Fragen zu Perl-Modulen |
| Das folgende "sub redefined" verwirrt zusätzlich, vielleicht am Modul editiert und ein Semikolon oder eine Klammer vergessen?
[i]Option logo wird zweimal definiert, einmal mit optionalen und… |
|
| Bad name after...
(#179742) |
2015-02-19 17:50 |
rosti
|
|
Allgemeines zu Perl |
| Issue [c]redefined[/c]: Das liegt bei Dir vor, weil Du eine gleichnamige Methode mehrfach im gleichen Scope definierst. Entweder Du deklarierst Deine Packages entsprechend, was auf eine… |
|
| Problem beim Schreiben in eine Datei
(#117397) |
2008-12-23 10:47 |
trequ
|
|
Allgemeines zu Perl |
| … redefined at module_logfile.pm line 73 (#1)
(W redefine) You redefined a subroutine. To suppress this warning, say
{
no warnings 'redefine';
eval "sub name { ... |
|
| Rückgabewert in Variable speichern???
(#677) |
2004-01-23 16:54 |
eisbeer
|
|
Perl/CGI |
| Machs doch einfach mit subroutinen... |
|
| Bad name after...
(#179747) |
2015-02-19 20:48 |
rosti
|
|
Allgemeines zu Perl |
| … Du mehrere Funktionen im gleichen Scope, daher die Warnung [c]redefined[/c]. Deklariere Deine Packages in den Dateien welche mit [c]require[/c] eingebunden werden, damit landen gleichnamige… |
|
| Prototypen: Wie? Was? Wozu?
(#56656) |
2005-07-26 00:38 |
pktm
|
|
Allgemeines zu Perl |
| [Mon Jul 25 22:17:25 2005] CMS.pm: Subroutine _set2substitute redefined at ../../pm/CMS.pm line 544.
[/quote]
Was nun?
Mir wäre im übrigen auch eine Methode recht, bei der die Parameter einfach… |
|
| 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… |
|
| 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. |
|
| 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… |
Jemand zu Hause?
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
