hello All, I'm new to AWK programming and learned myself few things to process a file and deal with duplicate lines, but I got into a scenario which makes me clueless to handle. Here is the scenario..
Input file:
Code:
user role
----- ----
AAA add
AAA delete
BBB delete
CCC delete
DDD add
BBB add
Expected output:
Code:
user role
---- -----
AAA add
BBB add
CCC delete
DDD add
As per my expected output, if the same user has 2 roles (add & delete) only "add" should be preferred for that user and to be printed ignoring the delete row, but if a user has just one role (add / delete) it can be printed as such. note: line sequence can be in any order.
Thanks for guiding me the rite way to approach!!
Last edited by Scrutinizer; 03-05-2016 at 03:08 AM..
Reason: detailed explanation
Hello,
I have what is probably a simple task in text manipulation, but I just can't wrap my brain around it.
I have a text file that looks something like the following. Note that some have middle initials in the first field and some don't.
john.r.smith:john.smith@yahoo.com... (4 Replies)
Hello,
say suppose i am processing an file emp.dat the field of which are
deptno empno empname etc
now say suppose i want to change the file to emp.lst then how can i do it? Here i what i attempted but in vain
BEGIN{
system("sort emp.dat > emp.lst")
FILENAME="emp.lst"
}
{
print... (2 Replies)
Hello,
I'm running a script on AIX to process lines in a file. I need to enclose the second column in quotation marks and write each line to a new file. I've come up with the following:
#!/bin/ksh
filename=$1
exec >> $filename.new
cat $filename | while read LINE
do
echo $LINE | awk... (2 Replies)
I am trying to process file which has following data
#23456789012345
ACNASPSA13N0N0
ACNAPCPA05N0N0
ACNAFATS11N0N0
I want to take out each line from the file and what to put in the file by name which if part of the line starting from offset 10 to 15. It means I want to create three file... (3 Replies)
I have a 3-column data file, for which I wish to print certain parts of $3
PHI PSI A(x)
-177.5 -177.5 1.0625
-177.5 -172.5 0.55
-177.5 -167.5 0.0478125
-177.5 -162.5 0
-177.5 -157.5 0.284375
-177.5 -152.5 0.187188
-177.5 -147.5 0.236875
-177.5 -142.5 0.383438
-177.5 ... (3 Replies)
Input File:
1234, 2345,abc
1,24141,gw
222,rff,sds
2232145,sdsd,121
Output file to be generated:
000001234,2345,abc
000000001,24141,gw
000000222,rff,sds
002232145,sdsd,121
i.e; the first column is padded to get 9 digits.
I tried with following: (1 Reply)
Input File:
1234, 2345,abc
1,24141,gw
222,rff,sds
2232145,sdsd,121
Output file to be generated:
000001234,2345,abc
000000001,24141,gw
000000222,rff,sds
002232145,sdsd,121
i.e; the first column is padded to get 9 digits.
I tried with following: (3 Replies)
Hello,
I extracted a list of files in a directory with the command ls . However this is not my computer, so the ls functionality has been revamped so that it gives the filesizes in front like this :
This is the output of ls command : I stored the output in a file filelist
1.1M... (5 Replies)
I have one input file ABC.txt and one output DEF.txt. After the ABC is processed and created output, I want to rename ABC.txt to ABC.orig and DEF to ABC.txt. Currently when I am doing this, it does not process the input file as it cannot read and write to the same file. How can I achieve this?
... (12 Replies)
Hi - I want to interrogate information about my poker hands, sessions are all recorded in a text file in a particular format. Each hand starts with the string <PokerStars> followed by a unique hand reference and other data like date/time. There is then all the information about each hand. My first... (5 Replies)
Discussion started by: rbeech23
5 Replies
LEARN ABOUT DEBIAN
catalyst::plugin::authorization::roles
Catalyst::Plugin::Authorization::Roles(3pm) User Contributed Perl Documentation Catalyst::Plugin::Authorization::Roles(3pm)NAME
Catalyst::Plugin::Authorization::Roles - Role based authorization for Catalyst based on Catalyst::Plugin::Authentication
SYNOPSIS
use Catalyst qw/
Authentication
Authorization::Roles
/;
sub delete : Local {
my ( $self, $c ) = @_;
$c->assert_user_roles( qw/admin/ ); # only admins can delete
$c->model("Foo")->delete_it();
}
DESCRIPTION
Role based access control is very simple: every user has a list of roles, which that user is allowed to assume, and every restricted part
of the app makes an assertion about the necessary roles.
With "assert_user_roles", if the user is a member in all of the required roles access is granted. Otherwise, access is denied. With
"assert_any_user_role" it is enough that the user is a member in one role.
There are alternative approaches to do this on a per action basis, see Catalyst::ActionRole::ACL.
For example, if you have a CRUD application, for every mutating action you probably want to check that the user is allowed to edit. To do
this, create an editor role, and add that role to every user who is allowed to edit.
sub edit : Local {
my ( $self, $c ) = @_;
$c->assert_user_roles( qw/editor/ );
$c->model("TheModel")->make_changes();
}
When this plugin checks the roles of a user it will first see if the user supports the self check method.
When this is not supported the list of roles is extracted from the user using the "roles" method.
When this is supported, the "check_roles" method will be used to delegate the role check to the user class. Classes like the one provided
with iCatalyst::Authentication::Store::DBIx::Class optimize the check this way.
METHODS
assert_user_roles [ $user ], @roles
Checks that the user (as supplied by the first argument, or, if omitted, "$c->user") has the specified roles.
If for any reason ("$c->user" is not defined, the user is missing a role, etc) the check fails, an error is thrown.
You can either catch these errors with an eval, or clean them up in your "end" action.
check_user_roles [ $user ], @roles
Takes the same args as "assert_user_roles", and performs the same check, but instead of throwing errors returns a boolean value.
assert_any_user_role [ $user ], @roles
Checks that the user (as supplied by the first argument, or, if omitted, "$c->user") has at least one of the specified roles.
Other than that, works like "assert_user_roles".
check_any_user_role [ $user ], @roles
Takes the same args as "assert_any_user_role", and performs the same check, but instead of throwing errors returns a boolean value.
SEE ALSO
Catalyst::Plugin::Authentication
Catalyst::ActionRole::ACL
Catalyst::Manual::Tutorial::06_Authorization
AUTHOR
Yuval Kogman <nothingmuch@woobling.org>
COPYRIGHT & LICENSE
Copyright (c) 2005-2011 the Catalyst::Plugin::Authorization::Roles "AUTHOR" as listed above.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-04-29 Catalyst::Plugin::Authorization::Roles(3pm)