Lines Matching refs:str
207 my $str = join(" ", map { /\n/ ? do { my $n = $_; $n =~ tr/\n/ /; $n } : $_; } @_);
208 $str = $cmd->toascii($str) if $tr;
209 $str .= "\015\012";
211 my $len = length $str;
215 unless (defined($swlen = syswrite($cmd,$str,$len)) && $swlen == $len);
217 $cmd->debug_print(1,$str)
310 my($cmd,$str) = @_;
313 unshift(@{${*$cmd}{'net_cmd_lines'}}, $str);
332 my $str = $cmd->getline();
335 unless defined($str);
337 $cmd->debug_print(0,$str)
340 ($code,$more) = $cmd->parse_response($str);
343 $cmd->ungetline($str);
349 push(@{${*$cmd}{'net_cmd_resp'}},$str);
365 my $str = $cmd->getline() or return undef;
367 $cmd->debug_print(0,$str)
370 last if($str =~ /^\.\r?\n/o);
372 $str =~ s/^\.\././o;
376 print $fh $str;
380 push(@$arr,$str);