| |
| |
| |
|
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
Comments:
<0> encryptio_?
<1> gardenman: use Data::Dumper; print Dumper \@fileinput;
<2> huhlig: having never done much with HTML::Template, i can't help much. if you're running the script from <htmldir>/TechCentral/ (it doesn't matter where it's serving, that's where your pwd needs to be), and the file exists in the path you said... i don't know
<3> So far my puppy flavored cat treats are a hit with the focus groups!
<1> Yaakov: how are the kitten flavored puppy treats doing?
<3> tybalt89: Those are just kittens.
<0> hmm
<4> tybalt89, Ani-_ . isnt it possible to use the regex i wrote, and twist it somehow, instead of all this, i hardly know what does?
<5> hola ninos!
<1> EBETTERQUESTIONNEEDED
<6> scrottie needs TP for his cornhole!!
<4> ..?
<7> is there a special variable for the 'pwd'?
<6> cwd? use Cwd;
<6> perldoc Cwd
<8> Cwd. To access this perldoc please type, at a command line, 'perldoc Cwd'. You may also find it at http://perldoc.perl.org/Cwd.html
<7> doh .. missed the cap C .. thx
<0> grrr
<9> hmm, I still don't understand varaible scoping in perl: i declare a variable via my and in an if function, i can't access it?
<9> is there any declaration where scoping is hirarchical?
<10> martoss: correct. you should define it with "my" above the if block
<9> directly above the block again?
<0> hmm
<11> perlbot: coping with scoping?
<12> Coping with Scoping - http://perl.plover.com/FAQs/Namespaces.html
<6> hmartoss: the variable declared with 'my' is visible and availunable until the end of the block it was declared in.
<0> eval: use HTML::Template; my $html->{template} = HTML::Template->new( filename => 'templates/base.template' );
<8> huhlig: Error: Can't locate HTML/Template.pm in @INC (@INC contains:) at (eval 140) line 2. BEGIN failed--compilation aborted at (eval 140) line 2.
<0> oh well hmm
<9> hmm, not in my case...
<9> maybe sth else is wrong...
<9> i'll paste the code
<13> how can i know whether a match has taken place or not
<14> "martoss" at 84.150.35.42 pasted "scoping or other problem" (70 lines, 1.3K) at http://sial.org/pbot/17841
<15> martoss: what variable?
<9> ok, inside the pdb2gmx
<16> If I don't have root on a server and want to install some perl modules of cpan whats best way to go about this?
<0> hmm
<9> the logfile and nice aren't accessible
<0> http://pastebin.com/717222
<0> why wouldnt this work?
<15> martoss: isn't it obvious that $niced isn't accesable?
<15> martoss: in setoptions you call GetOptions. in that same subroutine you check if a value was entered for $nice. If it is then you set $nice to 0?
<4> Ani-_, im sorry to bother you, but im not getting anywere. Could you please help me with the whitepacing in the array, without breakin the lines?
<15> gardenman: it does not BRAKE THE LINES. What you are doing in your code is removing ALL whitespace (including the NEWLINE character) from the ARRAY. The ARRAY still holds the lines without the NEWLINES. So either change your method of printing the array or modify the regex or start by telling what you really want.
<9> Ani-_, you're right, I wanted to check if nice is not set and set it to zero, it has to be if (!$nice).
<9> But it doesn't change anything on the pdb2gmx problem...
<15> martoss: perhaps you should start by printing the value of $nice and $logfile? And perhaps you should check for errors fater the GetOptions call? (Read the documentation if you want to know how to do that)
<4> Ani-_, ok ..now i see where you are going. How could i then not remove the \n char. ive played a bit with the "." in the regex, aint getting anywere.
<5> where can I get a list of perl's special variables?
<5> and what they do?
<15> jrsims: perldoc perlvar
<8> perlvar - Perl predefined variables. To access this perldoc please type, at a command line, 'perldoc perlvar'. You may also find it at http://perldoc.perl.org/perlvar.html
<5> k
<9> hmm, the strange thing is that in the print part later in the script, the values are printed out correctly
<0> arrgh
<4> Ani-_, any suggestions? :-/ im a bit stuck, i only want a little help please.
<0> what is the Variable that keeps the source of execution
<0> I.E. I ran script.pl from /home/huhlig/scriptdir/
<0> the working dir
<9> ok, i've com a little bit closer to that
<9> good news: it seems as if logfile and nice are defined in the sub, bad news: they're not defined in the if's .
<16> is there anyway I can add a new location to @INC without a recompile for perl or root access, just for me ofcourse not system wide.
<17> perlbot set inc
<12> to change @INC (perldoc perlvar), recompile perl, or set the PERLLIB or PERL5LIB environment variable (perldoc perlrun), or use the -I option to perl (perldoc perlrun), or 'use lib' (perldoc lib) or fiddle with @INC (not recommended)
<8> perlvar - Perl predefined variables. To access this perldoc please type, at a command line, 'perldoc perlvar'. You may also find it at http://perldoc.perl.org/perlvar.html
<0> buu was that for me?
<18> What?
<0> obvieously not
<19> it was trigered by perlbot's response.
<19> erm.. triggered
<9> whats wrong with $logging="> ",$logfile;
<20> help my terminal manger is on desktop one and im on desktop two and im two lazy to swap to it :) is it split(/\s+/,$string) or split($string,/\s+/);
<21> eval: [ split /\s+/, "Look ma, an eval bot!" ]
<8> revdiablo: ['Look','ma,','an','eval','bot!']
<20> ah forgot about that, cheese reshippie
<20> err
<20> revdiablo,
<22> How is the bot protected from malicious users who might tell it to exec "rm -rf ~"?
<20> Zemyla, it doesnt do ``
<15> It isn't.
<20> Zemyla, it has some protections built in
<22> Okay.
<20> eval: `rm -rf ~/`
<8> prism:
<20> Ani-_, ah hold on is it jailed instead
<22> eval: [ $a = 0.0; $a += 1.0 / ($_ * $_) for 1..100; $a ]
<8> Zemyla: Error: syntax error at (eval 137) line 2, at EOF syntax error at (eval 137) line 2, near "$a ]"
<22> eval: { $a = 0.0; $a += 1.0 / ($_ * $_) for 1..100; $a }
<8> Zemyla: 1.63498390018489
<20> eval: my @memory_gobbler = "x"; my $runtime = 1; while ($runtime > 0) { @memory_gobbler = "@memory_gobbler@memory_gobbler"; }
<8> prism: Out of memory!
<15> If you want to let it crash then please use #buubot. (There is no reason to spam #perl with it)
<13> foreach $key (keys %table) {
<13> if ($string =~ /$key/) { &$table{$key}; }
<13> }
<13> whats wrong with that ?
<13> it says syntax error at test.pl line 13, near "$table{"
<20> foreach my $servs ( keys %servers ) { pingserver($servers{$servs}{host},$servs); }
<20> ^ from a working script
<0> hmm
<20> err
<20> &$table{$key};
<0> grrr
<20> ^ is that valid? & i mean
<0> how does perl run without a working dir
<13> yeah
<20> r3nd3r, change &$table{$key}; to 'print "$table{$key}\n"; '
<20> see if it works
<13> i get SCALAR(0x1830fb0)
<20> r3nd3r, but no error.
<13> nope
<20> r3nd3r, is this a 2d has or a 3d hash
<13> %table = ( "foo" => \$foo, "too" => \$too, "loo" => \$loo );
<13> sub foo { print "foo\n"}; sub too { print "too\n"}; sub loo { print "loo\n"};
<0> ok apache is being stupid
<20> eval: my %table = ( "foo" => \$foo, "too" => \$too, "loo" => \$loo ); foreach $key (keys %table) { if ($string =~ /$key/) { { &$table{$key}; } } }
<8> prism: Error: syntax error at (eval 137) line 2, near "$table{" syntax error at (eval 137) line 2, near "} }"
<20> eval: my %table = ( "foo" => \$foo, "too" => \$too, "loo" => \$loo ); foreach $key (keys %table) { if ($string =~ /$key/) { do ($table{$key}); } }
<8> prism:
<0> Workingdir:C:/Program Files/xampp/apache
<20> r3nd3r, what is & meant to do
<0> HTML::Template->new() : Cannot open included file templates/base.template : file not found. at C:/Program Files/xampp/perl/lib/HTML/Template.pm line 1632
<0> ok, it works
<0> but I shouldnt have to do this should I
<0> my $html->{template} = HTML::Template->new( filename => '../htdocs/TechCentral/templates/base.template' );
<20> eval: my $string = "too"; my %table = ("foo" => \$foo,"too" => \$too,"loo" => \$loo); foreach my $key (keys %table) { if ($string =~ /$key/) { do ($table{$key}); } }
<8> prism:
<0> is that the apache setup?
<20> eval: my $number = 123; if ($number =~ /\d\d\d/) { return 1; }
<8> prism: 1
<20> eval: my $number = '12a'; if ($number =~ /\d\d\d/) { return 1; }
<8> prism:
<13> prism, i want to execute the subroutene that $table{$key} refers to
<20> eval: my $string = "too"; my %table = ("foo" => \$foo,"too" => \$too,"loo" => \$loo); foreach my $key (keys %table) { if ($string =~ /$key/) { do ($table{$key}); } } sub loo { return "x"; }
<8> prism:
<20> eval: my $string = "too"; my %table = ("foo" => \$foo,"too" => \$too,"loo" => \$loo); foreach my $key (keys %table) { if ($string =~ /$key/) { do ${($table{$key})}; } } sub loo { return "x"; }
<8> prism: Error: Null filename used at (eval 137) line 2.
<23> can I use h2xs to make multiple modules within a distribution?
<20> eval: my $string = "too"; my %table = ("foo" => \$foo,"too" => \$too,"loo" => \$loo); foreach my $key (keys %table) { if ($string =~ /$key/) { ${$table{$key}}; } } sub loo { return "x"; }
<8> prism:
<20> eval: my $string = "loo"; my %table = ("foo" => \$foo,"too" => \$too,"loo" => \$loo); foreach my $key (keys %table) { if ($string =~ /$key/) { ${$table{$key}}; } } sub loo { return "x"; }
<8> prism:
<20> hmm
<13> eval: sub foo { print "foo\n"};sub too { print "too\n"};sub loo { print "loo\n"};
<13> %table = ( "foo" => \$foo, "too" => \$too, "loo" => \$loo);
<13> $string = "you too must leave";
<13> foreach $key (keys %table) {
<13> if ($string =~ /$key/) { print "$table{$key}\n"; }
<8> r3nd3r:
Return to
#perl
or
Go to some related
logs:
#ai
#web
I-Emerge torrent
xinetd in.authd
debian piespy
locked Xauthority DSL
nptlonly LD_ASSUME_KERNEL
#perl
#centos
#web
|
|