Slette en linie i en fil

det lyder som noget du hellere skal lægger over i en database !

Dog ikke en PERL-løsning men en shell-løsning:

grep -e "^[^,]*,odense," liste

Hvis det skal være mere generelt:

#!/bin/sh
#
# findgroup
#
FILENAME="list_of_persons"
CMDNAME=`basename $0`
if [ $# -ne 1 ]; then
  echo "Usage: $CMDNAME <groupname>" > /dev/stderr
  exit 1
else
  grep -e "^[^,]*,$1," $FILENAME
fi

Skulle have været et svar - undskyld

Fra linjen startende med #!/bin/sh og ud skal gemmes som en eksekverbar fil.

Hejsa til jer begge...
Jeg ville meget gerne beholde den metode der bruges nu til lagring af oplysningerne, så den med en database vil jeg gerne udlukke. Men tak for forslaget *S*

Den anden med en shell løsning er jeg ikke glad for :(

Jeg har fundet en rutine her som måske kan laves til et lille script der kan vise brugerne.
**
$pwdfile = "X:\\data\\pwdfile";
elsif ($by_username eq "yes") { <--- Denne kan sikkert fjernes
  open (FILE,">$pwdfile");
foreach $line (@user) {
($useraccount,$group,$enc_pw,$site,$space,$nada)=split(/\:/,$line);
    if ($useraccount ne $username) {
      print FILE "$line";
    }
}
  close (FILE);

Stumpen her er taget ud fra et script der sletter en bruger, men hvordan kan jeg bikse det således at den viser indholdet af filen og kun de bruger der matcher $group ?

Er ingen PERL-haj, men jeg vil tro, den skal se således ud:

I funktionen split skal \: erstattes med \, eller blot ,

I if erstattes useraccount med group, ne (ikke lig med) erstattes med eq (lig med) og username erstattes med searchgroup, som så er variabelnavnet på den gruppe du leder efter.

$pwdfile = "X:\\data\\pwdfile";
open (FILE,">$pwdfile");
foreach $line (@user) {
($useraccount,$group,$enc_pw,$site,$space,$nada)=split(/\,/,$line);
    if ($group eq $searchgroup) {
      print FILE "$line";
    }
close (FILE);

$file="/sti/til/filen/fil.txt"
$match="Odense";

open (INDEXFILE, "$file");
    @lines =  <INDEXFILE>;
close (INDEXFILE);

foreach $line (@lines)
{
($useraccount,$group,$enc_pw,$site,$space,$nada)=split(/\,/,$line);
if ($useraccount eq $match)
{
print "$useraccount,$group,$enc_pw,$site,$space,$nada";
}
}

ups
if ($group eq $match)

Hej Med jer.
Jeg har testet begge eksempler, og ved begge får jeg en
'd:\server\usersys\read.pl' script produced no output

Jeg har fuld adgang til serveren ! Hvis dette kan være en nyttig oplysning :)

VH.
Thb

Prøv lige
$file="/sti/til/filen/fil.txt"


open (INDEXFILE, "$file");
    @lines =  <INDEXFILE>;
close (INDEXFILE);
print @lines;

Har du rettighederne sat korrekt til at kunne læse filen?

Hej Berum,
Tak for dit svar, jeg har vist fået det til at virke nu.
Mange tak .)

Men jeg kan vist ikke give point :( du har kun kommenteret..

;-)

Takker begge to for jeres hjælp :)