Fetching Data File

[pollock77]

open(ACCOUNT, $data_file) || die("Could not open file!");
@raw_data=<ACCOUNT>;
close(ACCOUNT);


foreach $account (@raw_data){
   chop($account);
   ($username,$rank,$handle,$password,$group,$word)=split(/\|/,$account);

I want the ($username,$rank,$handle,$password,$group,$word) in a separate file but can't seem to get it right.

How could I go about doing this?

 

[PaulTEG]

open(ACCOUNT, $data_file) || die("Could not open file!");
open(OTHER, ">>otherfile.txt") || die("Could not open file!");
while (<ACCOUNT>) {
  chomp;
 ($username,$rank,$handle,$password,$group,$word)=split(/\|/,$_);
  print OTHER "$username|$rank|$handle|$password|$group|$word\n";
  or more simply
  print OTHER "$_\n";
}

I think this is waht you asked for but why are you splitting on pipes, just to write back the file?

HTH
--Paul



It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[pollock77]

I see why you would be confused, but that's not what I meant.

I want one file to be
($username,$rank,$handle,$password,$group,$word)

Then, I want to call it up in this program, something like

open(ACCOUNT, $data_file) || die("Could not open file!");
@raw_data=<ACCOUNT>;
close(ACCOUNT);


foreach $account (@raw_data){
   chop($account);
   @var=split(/\|/,$account);

where @var = ($username,$rank,$handle,$password,$group,$word)

 

[PaulTEG]

show us a line, and obfuscate username and password, and handle, and tell us what you want to do with it?

--Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[pollock77]

pollock77|Admin|John Smith|abc123|admin|Programmer

 

[pollock77]

Oh, and it's an account file.

 

[PaulTEG]

and tell us what you want to do with it?

--Paul


It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[pollock77]

In this case, $group will be used to determine whether or not a user has access to a given page.

 

[pollock77]

Any help?

 

[PaulTEG]

$privaccounts="admins|gborbs|gnorks ...";

open(ACCOUNT, $data_file) || die("Could not open file!");
@raw_data=<ACCOUNT>;
close(ACCOUNT);
foreach $account (@raw_data){
   chop($account);
   @var=split(/\|/,$account);
   if (index $privaccounts,$var[4]!=-1) {
#      group is listed in privaccnts
   } else {
#      they aren't
   }
}

??Paul


It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[pollock77]

I guess I'm not describing it very well.

I want ($username,$rank,$handle,$password,$group,$word) to be in a separate file, so that if I need to add a new variable, ex: ($username,$rank,$handle,$password,$group,$word,$NEW), then I wouldn't want to go through every program and add ,$NEW to every place I used it

 

[PaulTEG]

Try out this code to see if it's what you're looking for

  $rec="1|2|3|4|5|6|7|8|9|0";
  ($field1,$field2,$field3,@rest)=split/\|/,$rec;
  print "$field1\n";
  print "$field2\n";
  print "$field3\n";
  print "@rest";

HTH
--Paul

It's important in life to always strike a happy medium, so if you see someone with a crystal ball, and a smile on their face ...

 

[pollock77]

Not what I meant, but that works just as well, I think. Like, if I wanted to print the number nine, I'd just use $rec[9] correct?