01-07-2002
Perl, FilePropStore Method
Guys, anyone familiar with this FileProp Store Method.. Im having Compilation Error whenever a value is stored into the tied hash. Run time error
sub STORE {
my ($self, $key, $value) = @_;
my $name = $self ->{name};
unless ($PROPS{$key} and -w $name){
croak "Can't set prop $key for $name";
}
if ($key eq 'name'){
croak "file $key exists" if -e $key;
rename $name=>$key;
$self->{name}=$key;
} elseif ($key eq 'mtime'){
utime ((stat $name)[8], $value, $name);
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
hello ppl,
i've been coding a perl script for xchat and i need to store the nick's passwords. i was wondering which encryption to use. picture this situation: i've got a system flaw and some guy hacks the machine and gets his hands on the passwd file; he has access to the script. what encryption... (2 Replies)
Discussion started by: crashnburn
2 Replies
2. Programming
Which is the perferred method of installing Perl modules on a Unix system? Is is CPAN or manually installing them via a tar file? Also can anyone point me in the right direction to a decent "how to" on configuring CPAN and how to perform custom installs from a tar? thanks:b: (2 Replies)
Discussion started by: metallica1973
2 Replies
3. Programming
Hi,
I am working with solaris 9 and I am using jre1.6. In my application,I am using java and C++ in my application.Basically we are using the java for front end and C/C++ for back hand.So I have to call the C/C++ source code form java code.we are using native methods for it..
So application... (1 Reply)
Discussion started by: smartgupta
1 Replies
4. Infrastructure Monitoring
Hello,
I have a problem with package and name space.
require "/Mehran/DSGateEngineLib/general.pl";
use strict;
sub System_Status_Main_Service_Status_Intrusion_Prevention
{
my %idpstatus;
my @result;
&General_ReadHash("/var/dsg/idp/settings",\%idpstatus);
#print... (4 Replies)
Discussion started by: Zaxon
4 Replies
5. Solaris
Hi,
I have created a services and method to start the processes.
Method:
#!/sbin/sh
. /lib/svc/share/smf_include.sh
case "$1" in
'start')
/usr/local/proce start
sleep 10
;;
'stop')
/usr/local/proce stop
;;
*)
echo... (5 Replies)
Discussion started by: kalpeer
5 Replies
6. Shell Programming and Scripting
In my code, I know I can write...
if ( defined &test_sub ) {
test_sub();
} else {
print "Subroutine doesn't exist";
}
This tests the existence of the test_sub subroutine without actually calling it.
If, though, I replace test_sub with a package method...
if ( defined... (1 Reply)
Discussion started by: JerryHone
1 Replies
7. Shell Programming and Scripting
Good morning all....
I have been learning Perl for about 2 months now and I guess I am getting there as much as I can however I am really stuck. I have a Perl script called postEvent.pl which uses a package called event.pm. PostEvent.pl depends on a meithod inside event.pm called isSuccess to... (0 Replies)
Discussion started by: LRoberts
0 Replies
8. Shell Programming and Scripting
Hi,
I am using perl with some EDA tool. There is an API function that can be iterate.
I try to check the ref and get that it is a string. I assume that it is a hash
sub aaa {
my $obj = shift;
$name = $obj->name;
print ref $obj,"\n";
foreach my $var(keys %{$obj}) {
my... (0 Replies)
Discussion started by: zivsegal
0 Replies
9. Solaris
After a memory upgrade all network interfaces are misconfigued. How do i resolve this issue. Below are some out puts.thanks.
ifconfig: plumb: SIOCLIFADDIF: eg000g0:2: no such interface
# ifconfig eg1000g0:2 plumb
ifconfig: plumb: SIOCLIFADDIF: eg1000g0:2: no such interface
# ifconfig... (2 Replies)
Discussion started by: andersonedouard
2 Replies
10. Emergency UNIX and Linux Support
Hi,
I am running a perl script to automate a process and I keep running into a error can't find the "value"
Can't call method "value" on an undefined value at process_file.pl line 44.
file is CVS
cell is ifdfdxrfmp.ksh
Here is the script I have also attached it as well:
... (2 Replies)
Discussion started by: vpundit
2 Replies
LEARN ABOUT MOJAVE
moose::meta::method5.18
Moose::Meta::Method(3) User Contributed Perl Documentation Moose::Meta::Method(3)
NAME
Moose::Meta::Method - A Moose Method metaclass
VERSION
version 2.1202
DESCRIPTION
This class is a subclass of Class::MOP::Method that provides additional Moose-specific functionality, all of which is private.
To understand this class, you should read the the Class::MOP::Method documentation.
INHERITANCE
"Moose::Meta::Method" is a subclass of Class::MOP::Method.
BUGS
See "BUGS" in Moose for details on reporting bugs.
AUTHORS
o Stevan Little <stevan.little@iinteractive.com>
o Dave Rolsky <autarch@urth.org>
o Jesse Luehrs <doy@tozt.net>
o Shawn M Moore <code@sartak.org>
o XXXX XXX'XX (Yuval Kogman) <nothingmuch@woobling.org>
o Karen Etheridge <ether@cpan.org>
o Florian Ragwitz <rafl@debian.org>
o Hans Dieter Pearcey <hdp@weftsoar.net>
o Chris Prather <chris@prather.org>
o Matt S Trout <mst@shadowcat.co.uk>
COPYRIGHT AND LICENSE
This software is copyright (c) 2006 by Infinity Interactive, Inc..
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
perl v5.18.2 2014-01-19 Moose::Meta::Method(3)