Hi KA B, On Friday 22 October 2010 21:12:29 KA B wrote: > I`m trying to get the filehandler 1 and 2 to print the result in one > line.
It's filehandles - not filehandlers. > The script i have made makes 2 lines. > > The script goes like this: > > > my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime; Do you have strict and warnings? Also see: http://perl-begin.org/tutorials/bad-elements/ And you should probably use a date+time module: http://perl-begin.org/topics/date-and-time/ > $year += 1900; > $mon += 1; > open FH,"echo $year-$mon-$yday $hour:$min >> /home/me/scriptest/ > calls_BH |"; > while (<FH>) { > print; > } > close FH; What are you trying to do here? Use three-args open (see the bad-elements link above), and don't resort to shell tricks for what can be done in Perl. You're appending the echo command's STDOUT to a file and then you're trying to pipe it out to Perl, but there won't be anything to pipe. This can be done in pure- Perl using File I/O. > open FH1," snmpget -v1 -c mee 1.2.3.1 > 1.3.6.1.4.1.1768.100.70.40.2.1.4.2 >> /home/me/scriptest/calls_BH |" > or die; > while (<FH1>) { > print; > } > close FH1; > Again, same problem. Don't use open to execute shell commands. Use system instead. In your case, you might wish to use backticks or open "-|" to trap the output of "snmpget". > The text in the file looks like this: > > 2010-10-22 20:51 > SNMPv2-SMI::enterprises.1768.100.70.40.2.1.4.2 = Counter32: 132321 > > I want it to look like this: > > 2010-10-22 20:51 SNMPv2-SMI::enterprises.1768.100.70.40.2.1.4.2 = > Counter32: 132321 > The easiest solution in your case would be to add the -n flag to echo, which will supress adding a newline. But you should revamp your script from the ground's up. > > Yeah i`m a total nuuuuub :) > Can somone point me in the right direction here? Please see the resources at http://perl-begin.org/ to learn Perl properly. Regards, Shlomi Fish -- ----------------------------------------------------------------- Shlomi Fish http://www.shlomifish.org/ Optimising Code for Speed - http://shlom.in/optimise <rindolf> She's a hot chick. But she smokes. <go|dfish> She can smoke as long as she's smokin'. Please reply to list if it's a mailing list post - http://shlom.in/reply . -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
