On 12-05-31 09:00 PM, Chris Nehren wrote:
On Thu, May 31, 2012 at 20:36:50 -0400 , Shawn H Corey wrote:
Should this be:
my %attrs = @_;
As Mark seems to be using DBIx::Class, and the new method on ::ResultSet
classes is defined as taking \%attrs, probably not.
my $attrs = @_;
This wil
On Thu, May 31, 2012 at 20:36:50 -0400 , Shawn H Corey wrote:
> >>Should this be:
> >> my %attrs = @_;
> >
> >As Mark seems to be using DBIx::Class, and the new method on ::ResultSet
> >classes is defined as taking \%attrs, probably not.
> >
>
> my $attrs = @_;
>
> This will store the number
On 12-05-31 08:26 PM, Chris Nehren wrote:
On Thu, May 31, 2012 at 18:35:21 -0400 , Shawn H Corey wrote:
On 12-05-31 06:28 PM, Mark Haney wrote:
sub insert_shift {
my $self = shift;
my $attrs = @_;
Should this be:
my %attrs = @_;
As Mark seems to be using DBIx::Class, and
On Thu, May 31, 2012 at 18:35:21 -0400 , Shawn H Corey wrote:
> On 12-05-31 06:28 PM, Mark Haney wrote:
> >sub insert_shift {
> > my $self = shift;
> > my $attrs = @_;
>
> Should this be:
> my %attrs = @_;
As Mark seems to be using DBIx::Class, and the new method on ::ResultSet
cl
On 12-05-31 07:31 PM, jbiskofski wrote:
I appreciate any input& suggestions, thanks for reading.
http://scribus.net/canvas/Scribus
--
Just my 0.0002 million dollars worth,
Shawn
Programming is as much about organization and communication
as it is about coding.
_Perl links_
off
This really has nothing to do with Perl, but since Perl is the language I
use and I trust you are all bright, helpful and experiences I figured I
would give it a shot.
I work for a startup that builds an academic and administrative platform
for private schools and universities in Mexico. Our code
A bareword is an unquoted string appearing in Perl source. Depending on context
it is treated as a sub call or a string (or a filehandle and a few other things
I'd imagine).
Barewords that are not sub calls are generally not permitted under "use strict"
(specifically "use strict 'subs'"), with
On 12-05-31 06:28 PM, Mark Haney wrote:
sub insert_shift {
my $self = shift;
my $attrs = @_;
Should this be:
my %attrs = @_;
my $m = $self->schema->resultset('Shifts')->new(attrs);
my $m = $self->schema->resultset('Shifts')->new(%attrs);
$m->insert;
}
I'm getting this error in one of my packages (built by a previous coder):
Bareword "%s" not allowed while "strict subs" in use
In this case the "%s" is attrs. Here's the bit of code it's choking on:
sub insert_shift {
my $self = shift;
my $attrs = @_;
my $m = $self->schem
On 12-05-31 01:23 PM, Jon Forsyth wrote:
Hello,
I'm using the following line in Terminal, on OSX Lion, but I can't seem to
match parentheses '()':
perl -n -e 'print if(/\\(Submit\\)/)' visits/admin_add.ctp
I tried with one backslash in front of each '(' ')' as well to no avail.
If I remove t
Hello,
I'm using the following line in Terminal, on OSX Lion, but I can't seem to
match parentheses '()':
perl -n -e 'print if(/\\(Submit\\)/)' visits/admin_add.ctp
I tried with one backslash in front of each '(' ')' as well to no avail.
If I remove the '\'s and '()' the match is printed like s
You want something like this:
#!/software/bin/perl
use warnings;
use strict;
my $file = "example.txt";
open my $in, '<', $file or die "Cannot open '$file' because: $!";
while ( <$in> ) {
next if /^#/;
chomp;
my ( $key, @fields ) = split /\t/;
print map "$key\t$_\n", @fields;
thanks a lot Rob
I would like an output without the $VAR...
so I did add this after the push function and it is perfect, thanks a
lot again
foreach my $number(@othernumbers){print $rownum,"\t",$elet, "\n";}
#!/usr/local/bin/perl
use strict;
use warnings;
my $fh;
my %results;
open ( $fh,
nathalie wrote:
Hi
Hello,
I have this format of file: (see attached example)
1 3206102-3207048 3411782-3411981 3660632-3661428
2 4481796-4482748 4483180-4483486
and I would like to change it to this
1 3206102-3207048
1 3411782-3411981
1 3660632-3661428
2 4481796-4482748
2 4483180-4483486
On Thu, May 31, 2012 at 11:37 AM, nathalie wrote:
>
>
> Hi
> I have this format of file: (see attached example)
> 1 3206102-3207048 3411782-3411981 3660632-3661428
> 2 4481796-4482748 4483180-4483486
>
>
> and I would like to change it to this
> 1 3206102-3207048
> 1 34117
Hi
I have this format of file: (see attached example)
1 3206102-3207048 3411782-3411981 3660632-3661428
2 4481796-4482748 4483180-4483486
and I would like to change it to this
1 3206102-3207048
1 3411782-3411981
1 3660632-3661428
2 4481796-4482748
2 44
16 matches
Mail list logo
