As Scrutinizer said, %q is likely not portable.
And, %q solves a problem that would deserve a better solution.
The natural delimiter for piped input is a newline.
So perhaps you can use that?
Try the following example:
Code:
#Simple echo
echo_(){
( IFS=" "; printf "%s\n" "$*" )
}
printe() { # STR1 STR2 STR3
# Simply prints the strings as passed
# It requires 3 strings to use the center
case "$1" in
"--"|"-")
# Read pipe, expect 3 lines
read LEFT; read CENTER; read RIGHT
printe "$LEFT" "$CENTER" "$RIGHT"
return
;;
esac
swarm.print.border -e
swarm.print.text -e "$1" "$2" "$3"
}
echo_ "this is
a piped
test code" | printe -
printe "this is" "an argument" "test code"
printf "%s\n" "this was" "an argument" "test code" | printe -
BTW the echo tip was from me. sed s/RudiC/MIG/g
This User Gave Thanks to MadeInGermany For This Post:
i made a lot of processes. here is the code:
main()
{
printf("\nEnter K="); scanf("%d",&k);
printf("Enter L="); scanf("%d",&l);
printf("\nFather id=%d\n",getpid());
x=0;
makechild();
sleep(2);
return 1;
}
int makechild()
{
for(q=1;q<=k;q++)
{
if(f=fork())
{
... (5 Replies)
Hi,
I have a shell scripting. This will take 7 digit number in each line and add 7 digit number with next subsequent lines ( normal addition ).
Eg:
0000001
0000220
0001235
0000022
0000023
...........
.........
........
Like this i am having around 1500000 records. After adding... (23 Replies)
Hi I have a problem writing a c program that makes a telnet connection and writes some command.
The shell command is something like this:
------------------------------------------------------------------
>
>telnet 141.111.231.132 3300
ENTER COMMAND: login "<--- I' wirte a command (ex... (5 Replies)
Hi, guys:
I am working on my shell using c. How can I use pipe to implement the following?
ls -l 1>> | grep hellp 1<< 2>> | less 2<<
(the output of ls goes to grep, and the output of grep goes to less)
Thanks
Please use and tags when posting code, data or logs etc. to preserve... (1 Reply)
Hello everyone, I'm in need of some assistance. I'm currently enrolled in an introductory UNIX shell programming course and, well halfway through the semester, we are receiving our first actual assignment. I've somewhat realized now that I've fallen behind, and I'm working to get caught up, but for... (1 Reply)
Hi All,
I am using the below script which has awk command, but it is not returing the expected result. can some pls help me to correct the command.
The below script sample.ksh should give the result if the value of last 4 digits in the variable NM matches with the variable value DAT. The... (7 Replies)
Hi guys,
I need to know how i can ignore Pipe '|' if Pipe is coming as a column in Pipe delimited file
for eg:
file 1:
xx|yy|"xyz|zzz"|zzz|12...
using below awk command
awk 'BEGIN {FS=OFS="|" } print $3
i would get xyz
But i want as :
xyz|zzz to consider as whole column... (13 Replies)
Hello,
I have an ffmpeg bash script which is working nice and
I need to do the same for other sources.
To create new scripts and to deal with multiple bash files sounds not logical. It is a bit hard to manage for me..
I wondered if it was possible to make my input file as variable.
Then I... (1 Reply)
Discussion started by: baris35
1 Replies
LEARN ABOUT DEBIAN
net::google::code
Net::Google::Code(3pm) User Contributed Perl Documentation Net::Google::Code(3pm)NAME
Net::Google::Code - a simple client library for google code
SYNOPSIS
use Net::Google::Code;
my $project = Net::Google::Code->new( project => 'net-google-code' );
$project->load; # load its metadata, e.g. summary, owners, members, etc.
print join(', ', @{ $project->owners } );
# return a Net::Google::Code::Issue object, of which the id is 30
$project->issue( id => 30 );
# return a Net::Google::Code::Download object, of which the file name is
# 'FooBar-0.01.tar.gz'
$project->download( name => 'FooBar-0.01.tar.gz' );
# return a Net::Google::Code::Wiki object, of which the page name is 'Test'
$project->wiki( name => 'Test' );
# loads all the downloads
$project->load_downloads;
my $downloads = $project->downloads;
# loads all the wikis
$project->load_wikis;
my $wikis = $project->wikis;
DESCRIPTION
Net::Google::Code is a simple client library for projects hosted in Google Code.
Since 0.15, Net::Google::Code offers google's official issues api support. Besides the new "Net::Google::Code::Issue::list",
"Net::Google::Code::Issue::Comment::list" and <Net::Googlel::Code::Issue::load_comments> methods, which use the api from start, you can set
$Net::Google::Code::Issue::USE_HYBRID to true to load, create and update issue with the api too.
But the official api is not function complete yet( e.g. no attachment support, can't merge, etc. ), Net::Google::Code will back to the
scraping way to accomplish those stuff.
ATTRIBUTES
project
the project name
email, password
user's email and password, used to authenticate
base_url
the project homepage
base_svn_url
the project svn url (without trunk)
base_feeds_url
the project feeds url
summary
description
labels
owners
members
INTERFACE
load
load project's home page, and parse its metadata
parse
acturally do the parse job, for load();
load_downloads
load all the downloads, and store them as an arrayref in $self->downloads
load_wikis
load all the wikis, and store them as an arrayref in $self->wikis
issue
return a new Net::Google::Code::Issue object, arguments will be passed to Net::Google::Code::Issue's new method.
download
return a new Net::Google::Code::Download object, arguments will be passed to Net::Google::Code::Download's new method.
wiki
return a new Net::Google::Code::Wiki object, arguments will be passed to Net::Google::Code::Wiki's new method.
DEPENDENCIES
Any::Moose, HTML::TreeBuilder, WWW::Mechanize, Params::Validate XML::FeedPP, DateTime, JSON, URI::Escape, MIME::Types, File::MMagic
INCOMPATIBILITIES
None reported.
BUGS AND LIMITATIONS
No bugs have been reported.
This project is very very young, and api is not stable yet, so don't use this in production, at least for now.
AUTHOR
sunnavy "<sunnavy@bestpractical.com>"
Fayland Lam "<fayland@gmail.com>"
LICENCE AND COPYRIGHT
Copyright 2008-2010 Best Practical Solutions.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.10.1 2010-04-26 Net::Google::Code(3pm)
03-13-2020
